File Coverage

lib/Class/Usul/Getopt.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 23 23 100.0


line stmt bran cond sub pod time code
1             package Class::Usul::Getopt;
2              
3 19     19   113 use strict;
  19         77  
  19         446  
4 19     19   79 use warnings;
  19         37  
  19         441  
5 19     19   80 use parent 'Getopt::Long::Descriptive';
  19         38  
  19         116  
6              
7 19     19   488341 use Class::Usul::Getopt::Usage;
  19         56  
  19         539  
8 19     19   130 use Getopt::Long 2.38;
  19         130  
  19         405  
9              
10             sub usage_class {
11 4     4 1 3074 return 'Class::Usul::Getopt::Usage';
12             }
13              
14             1;
15              
16             __END__
17              
18             =pod
19              
20             =encoding utf-8
21              
22             =head1 Name
23              
24             Class::Usul::Getopt - Getopt::Long but simpler more powerful and flexible
25              
26             =head1 Synopsis
27              
28             use Class::Usul::Getopt qw( describe_options );
29              
30             =head1 Description
31              
32             L<Getopt::Long> but simpler more powerful and flexible. Inherits from
33             L<Getopt::Long::Descriptive>
34              
35             =head1 Configuration and Environment
36              
37             Defines no attributes
38              
39             =head1 Subroutines/Methods
40              
41             =head2 C<usage_class>
42              
43             Overrides the class method in the L<Getopt::Long::Descriptive> setting the
44             usage class to L<Class::Usul::Getopt::Usage>
45              
46             =head1 Diagnostics
47              
48             None
49              
50             =head1 Dependencies
51              
52             =over 3
53              
54             =item L<Class::Usul::Getopt::Usuage>
55              
56             =item L<Getopt::Long::Descriptive>
57              
58             =back
59              
60             =head1 Incompatibilities
61              
62             There are no known incompatibilities in this module
63              
64             =head1 Bugs and Limitations
65              
66             There are no known bugs in this module. Please report problems to
67             http://rt.cpan.org/NoAuth/Bugs.html?Dist=Class-Usul.
68             Patches are welcome
69              
70             =head1 Acknowledgements
71              
72             Larry Wall - For the Perl programming language
73              
74             =head1 Author
75              
76             Peter Flanigan, C<< <pjfl@cpan.org> >>
77              
78             =head1 License and Copyright
79              
80             Copyright (c) 2017 Peter Flanigan. All rights reserved
81              
82             This program is free software; you can redistribute it and/or modify it
83             under the same terms as Perl itself. See L<perlartistic>
84              
85             This program is distributed in the hope that it will be useful,
86             but WITHOUT WARRANTY; without even the implied warranty of
87             MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE
88              
89             =cut
90              
91             # Local Variables:
92             # mode: perl
93             # tab-width: 3
94             # End:
95             # vim: expandtab shiftwidth=3: