File Coverage

blib/lib/Data/Perl/Bool/MooseLike.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Data::Perl::Bool::MooseLike;
2             $Data::Perl::Bool::MooseLike::VERSION = '0.001007';
3             # ABSTRACT: data::Perl::Bool subclass that simulates Moose's native traits.
4              
5 1     1   789 use strictures 1;
  1         13  
  1         45  
6              
7 1     1   875 use Role::Tiny::With;
  1         6703  
  1         116  
8 1     1   1594 use Class::Method::Modifiers;
  1         2475  
  1         289  
9              
10             with 'Data::Perl::Role::Bool';
11              
12             my @methods = grep { $_ ne 'new' } Role::Tiny->methods_provided_by('Data::Perl::Role::Bool');
13              
14             around @methods => sub {
15             my $orig = shift;
16              
17             $orig->(\$_[0], @_[1..$#_]);
18             };
19              
20             1;
21              
22             =pod
23              
24             =encoding UTF-8
25              
26             =head1 NAME
27              
28             Data::Perl::Bool::MooseLike - data::Perl::Bool subclass that simulates Moose's native traits.
29              
30             =head1 VERSION
31              
32             version 0.001007
33              
34             =head1 SYNOPSIS
35              
36             # you should not be consuming this class directly.
37              
38             =head1 DESCRIPTION
39              
40             This class provides a wrapper and methods for interacting with a boolean. All
41             methods are written to emulate/match existing behavior that exists with Moose's
42             native traits.
43              
44             =head1 SEE ALSO
45              
46             =over 4
47              
48             =item * L
49              
50             =item * L
51              
52             =back
53              
54             =head1 AUTHOR
55              
56             Matthew Phillips
57              
58             =head1 COPYRIGHT AND LICENSE
59              
60             This software is copyright (c) 2015 by Matthew Phillips .
61              
62             This is free software; you can redistribute it and/or modify it under
63             the same terms as the Perl 5 programming language system itself.
64              
65             =cut
66              
67             __END__