File Coverage

blib/lib/Global/Context/StackFrame/Basic.pm
Criterion Covered Total %
statement 4 4 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod 0 1 0.0
total 6 7 85.7


line stmt bran cond sub pod time code
1             package Global::Context::StackFrame::Basic;
2             {
3             $Global::Context::StackFrame::Basic::VERSION = '0.003';
4             }
5 3     3   17 use Moose;
  3         7  
  3         22  
6             with 'Global::Context::StackFrame';
7             # ABSTRACT: trivial class implementing Global::Context::StackFrame
8              
9              
10             has description => (
11             is => 'ro',
12             isa => 'Str',
13             required => 1,
14             );
15              
16 10     10 0 411 sub as_string { $_[0]->description }
17              
18             1;
19              
20             __END__
21              
22             =pod
23              
24             =head1 NAME
25              
26             Global::Context::StackFrame::Basic - trivial class implementing Global::Context::StackFrame
27              
28             =head1 VERSION
29              
30             version 0.003
31              
32             =head1 SEE ALSO
33              
34             L<Global::Context::Terminal>
35              
36             =head1 AUTHOR
37              
38             Ricardo Signes <rjbs@cpan.org>
39              
40             =head1 COPYRIGHT AND LICENSE
41              
42             This software is copyright (c) 2010 by Ricardo Signes.
43              
44             This is free software; you can redistribute it and/or modify it under
45             the same terms as the Perl 5 programming language system itself.
46              
47             =cut