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

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