Help for this page

Select Code to Download


  1. or download this
    package DeepThought;

...
    my ($self, $n) = @_;
    print "$self says the answer is $n\n";
};
  2. or download this
    use Test::More tests => 2;

...
    $o->foo();
    ok($ok, 'foo called bar');
};
  3. or download this
    package Foo;
use CGI;
...
    my $class = shift;
    bless {cgi => CGI->new}, $class;
};
  4. or download this
    use Test::More tests => 1;

...
    my $o = Foo->new;
    ok($called, 'Foo->new called CGI->new');
};