package AspectPrecon;
use strict ;
use warnings;
use Carp;
use Exporter;
use Aspect qw(advice calls);
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(pre_insert);

my $subc = sub {
	print $::thisjp->signature(@_) . " is being called.\n";
	croak "Sorry, $_[0] has been reserved." if $_[0] =~ /saint/i;
};
my $spec = qr/main::insert_.*/;
my $pre_insert = advice(calls($spec), $subc);
sub pre_insert {$pre_insert};

1;