#!/usr/bin/perl -w use strict; use warnings; my $t = MyTest->new(); $t->do_test1; $t->do_test2; package MyTest; use Test::Builder; sub new { my $class = shift; my $builder = Test::Builder->new(); $builder->{Have_Plan} = 1;#本当はこれ書きた…