git.maemo.org Git - pkg-perl/blob - deb-src/libspiffy-perl/libspiffy-perl-0.30/t/stub.t

   1 use lib 't', 'lib';
   2 use strict;
   3 use warnings;
   4
   5 package XXX;
   6 use Spiffy -base;
   7 stub 'foo';
   8
   9 package YYY;
  10 use base 'XXX';
  11
  12 package main;
  13 use Test::More tests => 1;
  14
  15 my $y = YYY->new;
  16 eval {$y->foo};
  17 like($@, qr/subclassed/);