# try_AspectPrecon2.pl
use strict ;
use warnings;
use AspectPrecon qw/ pre_insert /;

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

insert_Nickname('Jack');

pre_insert()->enable;
insert_Nickname('Jill');

pre_insert()->disable;
insert_Nickname('SAINT');

pre_insert()->enable;
insert_Nickname('Saint');

__END__
Sorry, Saint has been reserved. at try_AspectPrecon2.pl line 17
insert Jack
main::insert_Nickname(Jill) is being called.
insert Jill
insert SAINT
main::insert_Nickname(Saint) is being called.