Select Code to Download

use strict ;
use warnings;
...

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

use strict ;
use warnings;
...
insert_Nickname('Jill');
insert_Nickname('SAINT');
insert_Nickname('Saint');

# try_AspectPrecon1.pl
use strict ;
...
main::insert_alias(Mike) is being called.
insert Mike
main::insert_alias(SAINT) is being called.

package AspectPrecon;
use strict ;
...
sub pre_insert {$pre_insert};

1;

# try_AspectPrecon2.pl
use strict ;
...
insert Jill
insert SAINT
main::insert_Nickname(Saint) is being called.

package AspectPostcon;
use strict ;
...
sub post_insert {$post_insert};

1;

# try_AspectPostcon1.pl
use strict ;
...
insert SAINT
main::insert_alias has done its work.
Tell God a SAINT has been created.

# try_AspectPostcon2.pl
use strict ;
...
insert Saint
main::insert_Nickname has done its work.
Tell God a Saint has been created.