File Coverage

blib/lib/Acme/landmine.pm

Criterion	Covered	Total	%
statement	15	20	75.0
branch	0	2	0.0
condition			n/a
subroutine	5	7	71.4
pod			n/a
total	20	29	68.9

package Acme::landmine;

use 5.000;
use strict;
use Carp;
no strict 'refs';

use vars qw'$VERSION $AUTOLOAD';

$VERSION = '1.00';


sub DESTROY{

};

sub AUTOLOAD {

         if($AUTOLOAD =~ /TIE/) {

		eval <
		sub $AUTOLOAD {
			my \$flavor = shift;
			my \$sin = shift;
			bless \\\$sin, \$flavor;
		}
EOF
	}else{
		eval <
		sub $AUTOLOAD {
			my \$sin = shift;
			confess  \$\$sin;
		};

EOF
	};

        goto &$AUTOLOAD;
}


1;
__END__