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

   1 use lib 't', 'lib';
   2 use strict;
   3
   4 use Test::More tests => 1;
   5 use Spiffy '-filter_save';
   6 use Filter4;
   7
   8 my $result = $Spiffy::filter_result;
   9 my $expected = do { local $/; <DATA> };
  10 $result =~ s/\r//g;
  11 $expected =~ s/\r//g;
  12 is($result, $expected);
  13
  14 __DATA__
  15 use strict;use warnings;my($bar,$bam);# comment
  16
  17 sub foo {my $self = shift;
  18     my $x = $self->$bar;
  19 }
  20
  21 sub one {my $self = shift; }
  22 sub uno {my $self = shift;}
  23 $bar = sub {my $self = shift;
  24     if (1) {
  25         my $y = 1;
  26     }
  27 };
  28
  29 sub baz {
  30     my $z = 1;
  31 }
  32
  33 $bam = sub {my $self = shift;
  34     $self->$bar(42);
  35 };
  36 ;1;