File Coverage

lib/Net/API/Stripe/Identity.pm
Criterion Covered Total %
statement 19 23 82.6
branch 0 2 0.0
condition n/a
subroutine 7 8 87.5
pod 1 1 100.0
total 27 34 79.4


line stmt bran cond sub pod time code
1             ##----------------------------------------------------------------------------
2             ## Stripe API - ~/lib/Net/API/Stripe/Identity.pm
3             ## Version v0.1.0
4             ## Copyright(c) 2022 DEGUEST Pte. Ltd.
5             ## Author: Jacques Deguest <jack@deguest.jp>
6             ## Created 2022/01/20
7             ## Modified 2022/01/20
8             ## All rights reserved
9             ##
10             ## This program is free software; you can redistribute it and/or modify it
11             ## under the same terms as Perl itself.
12             ##----------------------------------------------------------------------------
13             package Net::API::Stripe::Identity;
14             BEGIN
15             {
16 1     1   993 use strict;
  1         2  
  1         33  
17 1     1   5 use warnings;
  1         2  
  1         28  
18 1     1   5 use parent qw( Module::Generic );
  1         2  
  1         6  
19 1     1   64 use vars qw( $VERSION );
  1         2  
  1         45  
20 1     1   19 our $VERSION = 'v0.1.0';
21             };
22              
23 1     1   5 use strict;
  1         2  
  1         19  
24 1     1   5 use warnings;
  1         2  
  1         95  
25              
26             sub init
27             {
28 0     0 1   my $self = shift( @_ );
29 0           $self->{_init_strict_use_sub} = 1;
30 0 0         $self->SUPER::init( @_ ) || return( $self->pass_error );
31 0           return( $self );
32             }
33              
34             1;
35              
36             __END__
37              
38             =encoding utf-8
39              
40             =head1 NAME
41              
42             Net::API::Stripe::Identity - Stripe API
43              
44             =head1 SYNOPSIS
45              
46             use Net::API::Stripe::Identity;
47             my $this = Net::API::Stripe::Identity->new || die( Net::API::Stripe::Identity->error, "\n" );
48              
49             =head1 VERSION
50              
51             v0.1.0
52              
53             =head1 DESCRIPTION
54              
55             =head1 METHODS
56              
57             =head1 AUTHOR
58              
59             Jacques Deguest E<lt>F<jack@deguest.jp>E<gt>
60              
61             =head1 SEE ALSO
62              
63             L<perl>
64              
65             =head1 COPYRIGHT & LICENSE
66              
67             Copyright(c) 2022 DEGUEST Pte. Ltd.
68              
69             All rights reserved
70             This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
71              
72             =cut