simplify dual Moo/Moose logic a bit

[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..382f7e3 100644 (file)
--- a/lib/Function/Parameters/Info.pm
+++ b/lib/Function/Parameters/Info.pm
@@ -4,18 +4,16 @@ use v5.14.0;
 
 use warnings;
 
-our $VERSION = '0.02';
+our $VERSION = '0.03';
 
 # 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;
 }
@@ -31,7 +29,7 @@ BEGIN {
 
        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 +63,7 @@ sub args_max {
        $r
 }
 
-__PACKAGE__->$meta_make_immutable;
+__PACKAGE__->meta->make_immutable;
 
 'ok'
 
@@ -173,7 +171,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