File Coverage

blib/lib/Catalyst/Helper/Model/Bitcoin.pm
Criterion Covered Total %
statement 6 9 66.6
branch n/a
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 8 13 61.5


line stmt bran cond sub pod time code
1             package Catalyst::Helper::Model::Bitcoin;
2              
3 1     1   24360 use strict;
  1         3  
  1         32  
4 1     1   4 use warnings;
  1         2  
  1         79  
5              
6             our $VERSION = '0.02';
7              
8              
9             sub mk_compclass {
10 0     0 0   my ($self, $helper, $uri) = @_;
11              
12 0           $helper->{uri} = $uri;
13              
14 0           $helper->render_file('bitcoin', $helper->{file});
15             }
16              
17             1;
18              
19             =head1 NAME
20              
21             Catalyst::Helper::Model::Bitcoin - Helper class for Bitcoin models
22              
23             =head1 SYNOPSIS
24              
25             ./script/myapp_create.pl model BitcoinClient Bitcoin
26              
27             =head1 DESCRIPTION
28              
29             A Helper for creating models to interface with Bitcoin Server
30              
31             =head1 SEE ALSO
32              
33             L<https://github.com/hippich/Catalyst--Model--Bitcoin>, L<https://www.bitcoin.org>, L<Finance::Bitcoin>, L<Catalyst>
34              
35             =head1 AUTHOR
36              
37             Pavel Karoukin
38             E<lt>pavel@yepcorp.comE<gt>
39             http://www.yepcorp.com
40              
41             =head1 COPYRIGHT AND LICENSE
42              
43             Copyright (C) 2010 by Pavel Karoukin
44              
45             This library is free software; you can redistribute it and/or modify
46             it under the same terms as Perl itself, either Perl version 5.10.1 or,
47             at your option, any later version of Perl 5 you may have available.
48              
49              
50             =cut
51              
52             __DATA__
53             =begin pod_to_ignore
54              
55             __bitcoin__
56             package [% class %];
57              
58             use strict;
59             use warnings;
60              
61             use base qw/ Catalyst::Model::Bitcoin /;
62              
63             __PACKAGE__->config(
64             uri => '[% uri %]',
65             );
66              
67             =head1 NAME
68              
69             [% class %] - Bitcoin Server Model Class
70              
71             =head1 SYNOPSIS
72              
73             See L<[% app %]>.
74              
75             =head1 DESCRIPTION
76              
77             Bitcoin Server Model Class.
78              
79             =head1 AUTHOR
80              
81             [% author %]
82              
83             =head1 LICENSE
84              
85             This module is free software; you can redistribute it and/or modify it under
86             the same terms as Perl itself. See L<perlartistic>.
87              
88             =cut
89              
90             1;