File Coverage

blib/lib/Plugtools/Plugins/Dump.pm
Criterion Covered Total %
statement 9 21 42.8
branch 0 4 0.0
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 30 43.3


line stmt bran cond sub pod time code
1             package Plugtools::Plugins::Dump;
2              
3 1     1   23054 use warnings;
  1         2  
  1         38  
4 1     1   6 use strict;
  1         3  
  1         36  
5 1     1   133709 use Data::Dumper;
  1         19008  
  1         246  
6              
7             =head1 NAME
8              
9             Plugtools::Plugins::Dump - A Plugtools plugin that calls Data::Dumper->Dumper on %opts and %args that are passed to the plugin.
10              
11             =head1 VERSION
12              
13             Version 0.0.0
14              
15             =cut
16              
17             our $VERSION = '0.0.0';
18              
19             =head1 SYNOPSIS
20              
21             This is a Plugtools plugin that calls Data::Dumper->Dumper on %opts and %args
22             that are passed to the plugin.
23              
24             =cut
25              
26             =head1 Functions
27              
28             =head2 plugin
29              
30             The function that will be called by Plugtools.
31              
32             use Plugtools::Plugins::Dump;
33             %returned=Plugtools::Plugins::Dump->plugin(\%opts, \%args);
34            
35             if($returned{error}){
36             print "Error!\n";
37             }
38              
39             =cut
40              
41             sub plugin{
42 0     0 1   my %opts;
43 0 0         if(defined($_[1])){
44 0           %opts= %{$_[1]};
  0            
45             };
46 0           my %args;
47 0 0         if(defined($_[2])){
48 0           %args= %{$_[2]};
  0            
49             };
50              
51 0           print '%opts=...'."\n".Dumper(\%opts)."\n\n".'%args=...'."\n".Dumper(\%args);
52              
53 0           my %returned;
54 0           $returned{error}=undef;
55              
56 0           return %returned;
57             }
58              
59             =head1 ERROR CODES
60              
61             At this time this plugin does not return any error codes. As long as Data::Dumper is
62             installed, it will work.
63              
64             =head1 AUTHOR
65              
66             Zane C. Bowers, C<< >>
67              
68             =head1 BUGS
69              
70             Please report any bugs or feature requests to C, or through
71             the web interface at L. I will be notified, and then you'll
72             automatically be notified of progress on your bug as I make changes.
73              
74              
75              
76              
77             =head1 SUPPORT
78              
79             You can find documentation for this module with the perldoc command.
80              
81             perldoc Plugtools
82              
83              
84             You can also look for information at:
85              
86             =over 4
87              
88             =item * RT: CPAN's request tracker
89              
90             L
91              
92             =item * AnnoCPAN: Annotated CPAN documentation
93              
94             L
95              
96             =item * CPAN Ratings
97              
98             L
99              
100             =item * Search CPAN
101              
102             L
103              
104             =back
105              
106              
107             =head1 ACKNOWLEDGEMENTS
108              
109              
110             =head1 COPYRIGHT & LICENSE
111              
112             Copyright 2009 Zane C. Bowers, all rights reserved.
113              
114             This program is free software; you can redistribute it and/or modify it
115             under the same terms as Perl itself.
116              
117              
118             =cut
119              
120             1; # End of Plugtools