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

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 "running";

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) {
}