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

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

insert_Nickname('Jack');
insert_Nickname('SAINT');
insert_Nickname('Jill');
insert_Nickname('Saint');

__END__
insert Jack
main::insert_Nickname has done its work.
insert SAINT
main::insert_Nickname has done its work.
Tell God a SAINT has been created.
insert Jill
main::insert_Nickname has done its work.
insert Saint
main::insert_Nickname has done its work.
Tell God a Saint has been created.