version 1.0104

[p5sagit/Function-Parameters.git] / lib / Function / Parameters / Info.pm

diff --git a/lib/Function/Parameters/Info.pm b/lib/Function/Parameters/Info.pm
index fd8a0ec..ffec607 100644 (file)
--- a/lib/Function/Parameters/Info.pm
+++ b/lib/Function/Parameters/Info.pm
@@ -1,21 +1,18 @@
 package Function::Parameters::Info;
 
 use v5.14.0;
-
 use warnings;
 
-our $VERSION = '0.02';
+our $VERSION = '0.04';
 
 # If Moo isn't loaded yet but Moose is, avoid pulling in Moo and fall back to Moose
-my ($Moo, $meta_make_immutable);
+my $Moo;
 BEGIN {
        if ($INC{'Moose.pm'} && !$INC{'Moo.pm'}) {
                $Moo = 'Moose';
-               $meta_make_immutable = sub { $_[0]->meta->make_immutable };
        } else {
                require Moo;
                $Moo = 'Moo';
-               $meta_make_immutable = sub {};
        }
        $Moo->import;
 }
@@ -26,12 +23,12 @@ BEGIN {
        BEGIN { $Moo->import; }
        use overload
                fallback => 1,
-               '""' => sub { $_[0]->name },
+               '""'     => sub { $_[0]->name },
        ;
 
        has $_ => (is => 'ro') for qw(name type);
 
-       __PACKAGE__->$meta_make_immutable;
+       __PACKAGE__->meta->make_immutable;
 }
 
 my @pn_ro = glob '{positional,named}_{required,optional}';
@@ -65,7 +62,7 @@ sub args_max {
        $r
 }
 
-__PACKAGE__->$meta_make_immutable;
+__PACKAGE__->meta->make_immutable;
 
 'ok'
 
@@ -173,7 +170,7 @@ Lukas Mai, C<< <l.mai at web.de> >>
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2012 Lukas Mai.
+Copyright 2013 Lukas Mai.
 
 This program is free software; you can redistribute it and/or modify it
 under the terms of either: the GNU General Public License as published