Warning: Cannot modify header information - headers already sent by (output started at /home/destefa1/public_html/nf/function.php:1) in /home/destefa1/public_html/nf/function.php on line 215
Warning: Cannot modify header information - headers already sent by (output started at /home/destefa1/public_html/nf/function.php:1) in /home/destefa1/public_html/nf/function.php on line 216
Warning: Cannot modify header information - headers already sent by (output started at /home/destefa1/public_html/nf/function.php:1) in /home/destefa1/public_html/nf/function.php on line 217
Warning: Cannot modify header information - headers already sent by (output started at /home/destefa1/public_html/nf/function.php:1) in /home/destefa1/public_html/nf/function.php on line 218
Warning: Cannot modify header information - headers already sent by (output started at /home/destefa1/public_html/nf/function.php:1) in /home/destefa1/public_html/nf/function.php on line 219
Warning: Cannot modify header information - headers already sent by (output started at /home/destefa1/public_html/nf/function.php:1) in /home/destefa1/public_html/nf/function.php on line 220
use strict; use warnings;
use lib (-e 't' ? 't' : 'test'), 'inc';
use Test::More tests => 1;
use Spiffy '-filter_save';
use Filter4;
my $result = $Spiffy::filter_result;
my $expected = do { local $/; };
$result =~ s/\r//g;
$expected =~ s/\r//g;
is($result, $expected);
__DATA__
use strict;use warnings;my($bar,$bam);# comment
sub foo {my $self = shift;
my $x = $self->$bar;
}
sub one {my $self = shift; }
sub uno {my $self = shift;}
$bar = sub {my $self = shift;
if (1) {
my $y = 1;
}
};
sub baz {
my $z = 1;
}
$bam = sub {my $self = shift;
$self->$bar(42);
};
;1;