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

   1 use lib 't', 'lib';
   2 use strict;
   3 use warnings;
   4
   5 package XXX;
   6 use Spiffy -Base; #, '-filter_dump';
   7
   8 const name => 'world';
   9
  10 sub foo {
  11    "Hello, " . $self->name;
  12 }
  13
  14 sub bar() {
  15     my $self = shift;
  16     return $self;
  17 }
  18
  19 package main;
  20 use Test::More tests => 2;
  21
  22 my $xxx = XXX->new;
  23 is($xxx->foo, 'Hello, world');
  24 is(XXX::bar(42), 42);