File Coverage

blib/lib/Module/Faker/Appendix.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             package Module::Faker::Appendix;
2             # ABSTRACT: a thing that appends
3             $Module::Faker::Appendix::VERSION = '0.022';
4 8     8   7978 use Moose::Role;
  8         38749  
  8         31  
5              
6             has append => (
7             is => 'ro',
8             isa => 'ArrayRef',
9             default => sub {[]},
10             );
11              
12             around as_string => sub {
13             my ($orig, $self) = (shift, shift);
14             my $string = $self->$orig(@_);
15             $string .= join("\n", @{$self->append});
16             };
17              
18             1;
19              
20             __END__
21              
22             =pod
23              
24             =encoding UTF-8
25              
26             =head1 NAME
27              
28             Module::Faker::Appendix - a thing that appends
29              
30             =head1 VERSION
31              
32             version 0.022
33              
34             =head1 AUTHOR
35              
36             Ricardo Signes <rjbs@cpan.org>
37              
38             =head1 COPYRIGHT AND LICENSE
39              
40             This software is copyright (c) 2008 by Ricardo Signes.
41              
42             This is free software; you can redistribute it and/or modify it under
43             the same terms as the Perl 5 programming language system itself.
44              
45             =cut