# try_AspectPostcon1.pl
use strict ;
use warnings;
use AspectPostcon qw/ post_insert /;
post_insert()->enable;

sub insert_alias {print "insert $_[0]\n"; return 1}

insert_alias('Mike');
insert_alias('SAINT');

__END__
insert Mike
main::insert_alias has done its work.
insert SAINT
main::insert_alias has done its work.
Tell God a SAINT has been created.