JezK
Edit File: MooseLike.pm
package Data::Perl::Bool::MooseLike; $Data::Perl::Bool::MooseLike::VERSION = '0.001009'; # ABSTRACT: data::Perl::Bool subclass that simulates Moose's native traits. use strictures 1; use Role::Tiny::With; use Class::Method::Modifiers; with 'Data::Perl::Role::Bool'; my @methods = grep { $_ ne 'new' } Role::Tiny->methods_provided_by('Data::Perl::Role::Bool'); around @methods => sub { my $orig = shift; $orig->(\$_[0], @_[1..$#_]); }; 1; =pod =encoding UTF-8 =head1 NAME Data::Perl::Bool::MooseLike - data::Perl::Bool subclass that simulates Moose's native traits. =head1 VERSION version 0.001009 =head1 SYNOPSIS # you should not be consuming this class directly. =head1 DESCRIPTION This class provides a wrapper and methods for interacting with a boolean. All methods are written to emulate/match existing behavior that exists with Moose's native traits. =head1 SEE ALSO =over 4 =item * L<Data::Perl> =item * L<Data::Perl::Role::Collection::Bool> =back =head1 AUTHOR Toby Inkster <tobyink@cpan.org> =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2020 by Matthew Phillips <mattp@cpan.org>. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut __END__ ==pod