Blame t/filter.t

Packit 69e8b9
use lib 't', 'lib';
Packit 69e8b9
use strict;
Packit 69e8b9
use warnings;
Packit 69e8b9
Packit 69e8b9
package XXX;
Packit 69e8b9
use Spiffy -Base; #, '-filter_dump';
Packit 69e8b9
Packit 69e8b9
const name => 'world';
Packit 69e8b9
Packit 69e8b9
sub foo {
Packit 69e8b9
   "Hello, " . $self->name;
Packit 69e8b9
}
Packit 69e8b9
Packit 69e8b9
sub bar() {
Packit 69e8b9
    my $self = shift;
Packit 69e8b9
    return $self;
Packit 69e8b9
}
Packit 69e8b9
Packit 69e8b9
package main;
Packit 69e8b9
use Test::More tests => 2;
Packit 69e8b9
Packit 69e8b9
my $xxx = XXX->new;
Packit 69e8b9
is($xxx->foo, 'Hello, world');
Packit 69e8b9
is(XXX::bar(42), 42);