git.maemo.org Git - pkg-perl/blob - deb-src/libtest-base-perl/libtest-base-perl-0.54/t/subclass-autoclass.t

   1 package Testorama;
   2 use Test::Base -Base;
   3
   4 BEGIN {
   5     our @EXPORT = qw(run_orama);
   6 }
   7
   8 sub run_orama {
   9     pass 'Testorama EXPORT ok';
  10 }
  11
  12 package Test::Base::Block;
  13
  14 sub foofoo {
  15     Test::More::pass 'Test::Base::Block ok';
  16 }
  17
  18 package Testorama::Filter;
  19 use base 'Test::Base::Filter';
  20
  21 sub rama_rama {
  22     Test::More::pass 'Testorama::Filter ok';
  23 }
  24
  25 package main;
  26 # use Testorama;
  27 BEGIN { Testorama->import }
  28
  29 plan tests => 3;
  30
  31 run_orama;
  32
  33 [blocks]->[0]->foofoo;
  34
  35 __DATA__
  36 ===
  37 --- stuff chomp rama_rama
  38 che!