Help for this page

Select Code to Download


  1. or download this
    BEGIN {
   package Class;
...
eval { $c->maybe($o) };      is($@, '');
eval { $c->maybe(123) };     is($@, '');
eval { $c->maybe("abc") };   like($@, $maybe_fail);
  2. or download this
    eval { Container->new(maybe => 123) };  is($@, '');
eval { $c->maybe(undef) };              is($@, '');
eval { $c->maybe($o) };                 is($@, '');
eval { $c->maybe(123) };                is($@, '');
eval { $c->maybe("abc") };              like($@, $maybe_fail);