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

   1 package Thing;
   2 use strict;
   3 use Spiffy -base;
   4 use base 'Spiffy';
   5 our @EXPORT = qw(thing);
   6
   7 field volume => 11;
   8
   9 sub thing { Thing->new(@_) }
  10
  11 1;