File Coverage

blib/lib/Data/Perl/Code.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Data::Perl::Code;
2             $Data::Perl::Code::VERSION = '0.002009';
3             # ABSTRACT: Wrapping class for Perl coderefs.
4              
5 9     9   55 use strictures 1;
  9         67  
  9         261  
6              
7 9     9   713 use Role::Tiny::With;
  9         49  
  9         807  
8              
9             with 'Data::Perl::Role::Code';
10              
11             1;
12              
13             =pod
14              
15             =encoding UTF-8
16              
17             =head1 NAME
18              
19             Data::Perl::Code - Wrapping class for Perl coderefs.
20              
21             =head1 VERSION
22              
23             version 0.002009
24              
25             =head1 SYNOPSIS
26              
27             use Data::Perl qw/code/;
28              
29             my $code = code(sub { 'Foo'} );
30              
31             $code->execute(); # returns 'Foo';
32              
33             =head1 DESCRIPTION
34              
35             This class is a simple consumer of the L role, which
36             provides all functionality. You probably want to look there instead.
37              
38             =head1 AUTHOR
39              
40             Matthew Phillips
41              
42             =head1 COPYRIGHT AND LICENSE
43              
44             This software is copyright (c) 2014 by Matthew Phillips .
45              
46             This is free software; you can redistribute it and/or modify it under
47             the same terms as the Perl 5 programming language system itself.
48              
49             =cut
50              
51             __END__