Select Code to Download

  use Test::More tests => 3;
                                                                      
+                                                                     
+                 
  use_ok('CGI') or die;
  can_ok('CGI', 'start_html');
  ok(CGI->start_html, '... and calling it should succeed');

  package Foo;
  use stub qw'this that';

  sub AUTOLOAD {...} # required

  sub _delegate {
      # this is not a complete method.  It's just here for illustratio
+n
      my ($self, $slot, $object) {
...
      die "Interface required @missing" if @missing;
      return $self;
  }

  package stub;
                                                                      
+                                                                     
+                 
  sub import {
...
  }
                                                                      
+                                                                     
+                 
  1;