1234567891011 #!/usr/bin/perl -wuse strict;use Test::Builder;my $tb = Test::Builder->new;$tb->plan( tests => 2 );$tb->ok(1);$tb->ok(1);$tb->done_testing(2);
#!/usr/bin/perl -w
use
strict;
Test::Builder;
my
$tb
= Test::Builder->new;
->plan(
tests
=> 2 );
->ok(1);
->done_testing(2);