package AutoExecute;

BEGIN {
   our @EXPORT = qw( auto_execute );
   require Exporter;
   *import = \&Exporter::import;
}

use overload
   '""'  => \&stringify,
   '&{}' => \&code_ref,
;

sub auto_execute(&) {
   my ($sub) = @_;
   return bless(\$sub); 
}

sub new {
   my ($class, $sub) = @_;
   return bless(\$sub, $class); 
}

sub stringify {
   my ($self) = @_;
   my $sub = $$self;
   return $sub->();
}

sub code_ref {
   my ($self) = @_;
   my $sub = $$self;
   return $sub;
}

1;