File Coverage

blib/lib/Test/Standalone.pm

Criterion	Covered	Total	%
statement	22	28	78.5
branch	6	12	50.0
condition	3	6	50.0
subroutine	7	8	87.5
pod	0	3	0.0
total	38	57	66.6

###########################################
package Test::Standalone;
###########################################
use strict;
use warnings;
use Filter::Util::Call;
use Getopt::Std;

my $CODE       = "";
my $IN_TEST    = 0;
my $TEST_START = qr(^=begin test);
my $TEST_END   = qr(^=end test);

our $VERSION = "0.01";

###########################################
sub import {
###########################################
    my($type, @arguments) = @_ ;
    filter_add([]) ;

    if(@ARGV and $ARGV[0] eq "--test") {
        $IN_TEST = 1;
    }
}

###########################################
sub filter {
###########################################
    my $status = filter_read();
    if(/$TEST_START/ .. /$TEST_END/) {
        if(!/$TEST_START/ and !/$TEST_END/) {
            $CODE .= $_;
        }
    }
    if($IN_TEST) {
        if( s/^\s*main\s*\(\)/Test::Standalone::test_run()/ ) {
            $IN_TEST = 0;
        }
    }
    $status;
}

###########################################
sub test_run {
###########################################
    my $code = "package main; " .
               Test::Standalone::test_code();

    eval $code or die "eval failed: $!";
    exit 0;
}

###########################################
sub test_code {
###########################################
    return $CODE;
}

1;

__END__