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

   1 use lib 't', 'lib';
   2 use strict;
   3 use warnings;
   4
   5 package XXX;
   6 use Spiffy -base;
   7 const foo => 42;
   8
   9 package main;
  10 use Test::More tests => 3;
  11
  12 my $xxx = XXX->new;
  13 is($xxx->foo, 42);
  14 is($xxx->foo(69), 42);
  15 is($xxx->foo, 42);