root/dan/perl/PL_check/trunk/test.pl @ 14453

package My;

sub new {
    bless {}, shift;
}

package main;
use strict;
use warnings;
use lib qw(blib/lib blib/arch);

use PL_check::hack;

BEGIN {
    PL_check::hack::setup;
}


#exit;
warn "---------------------\nRUNNING";

so;
BEGIN { warn "My->new" }
my $obj = My->new;
#$obj->hoge;

while (1) {
    last;
}

for (1..2) {
    warn "for loop in";
    next;
    warn "for after next";
}
warn "for end";

for (1..2) {
}

warn "go to print hack";
print "PRINT: 1111\n";
print "PRINT: 2222\n";