You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
563 B
17 lines
563 B
diff -up Switch-2.17/Switch.pm.fixme Switch-2.17/Switch.pm
|
|
--- Switch-2.17/Switch.pm.fixme 2014-06-10 13:03:40.395988520 -0400
|
|
+++ Switch-2.17/Switch.pm 2014-06-10 13:04:50.909488953 -0400
|
|
@@ -25,9 +25,11 @@ my ($Perl5, $Perl6) = (0,0);
|
|
|
|
sub import
|
|
{
|
|
+ my ($class) = @_;
|
|
+ my $self = bless {}, $class;
|
|
$fallthrough = grep /\bfallthrough\b/, @_;
|
|
$offset = (caller)[2]+1;
|
|
- filter_add({}) unless @_>1 && $_[1] eq 'noimport';
|
|
+ filter_add($self) unless @_>1 && $_[1] eq 'noimport';
|
|
my $pkg = caller;
|
|
no strict 'refs';
|
|
for ( qw( on_defined on_exists ) )
|