diff options
Diffstat (limited to 'lib/MooseX/Privacy/Meta/Method/Private.pm')
| -rw-r--r-- | lib/MooseX/Privacy/Meta/Method/Private.pm | 28 |
1 files changed, 26 insertions, 2 deletions
diff --git a/lib/MooseX/Privacy/Meta/Method/Private.pm b/lib/MooseX/Privacy/Meta/Method/Private.pm index d4df26f..e706e67 100644 --- a/lib/MooseX/Privacy/Meta/Method/Private.pm +++ b/lib/MooseX/Privacy/Meta/Method/Private.pm @@ -3,7 +3,7 @@ package MooseX::Privacy::Meta::Method::Private; use Moose; extends 'Moose::Meta::Method'; -use Carp; +use Carp qw/confess/; sub wrap { my $class = shift; @@ -11,7 +11,7 @@ sub wrap { my $method = delete $args{body}; my $private_code = sub { - croak "The " + confess "The " . $args{package_name} . "::" . $args{name} . " method is private" @@ -24,3 +24,27 @@ sub wrap { } 1; +__END__ + +=head1 NAME + +MooseX::Privacy::Meta::Method::Private + +=head1 SYNOPSIS + +=head1 METHODS + +=head2 wrap + +=head1 AUTHOR + +franck cuny E<lt>franck@lumberjaph.netE<gt> + +=head1 SEE ALSO + +=head1 LICENSE + +This library is free software; you can redistribute it and/or modify +it under the same terms as Perl itself. + +=cut |
