Select Code to Download

   # in Alpha.pm

...
     close $fh;
     return $string;
   }

   *Alpha::sayhowdy = \&sayhowdy if ! defined &Alpha::sayhowdy;

   use Test::More qw( no_plan);

...
   require_ok('Beta');
   is($self->sayhowdy(), qq{Howdy, beta\n},
       "Beta::sayhowdy is now Alpha::sayhowdy");

   [Alpha] 539 $ prove -vb t/03_gamma.t
   t/03_gamma....ok 1 - use Alpha;
...
   ok
   All tests successful.
   Files=1, Tests=7,  0 wallclock secs

   $ cover -delete
   $ make test HARNESS_PERL_SWITCHES=1
...
                          if ! defined &Alpha::sayhowdy;
   22
   23                 1;