File Coverage

blib/lib/Net/TinyERP.pm

Criterion	Covered	Total	%
statement	25	26	96.1
branch	5	8	62.5
condition	2	2	100.0
subroutine	7	7	100.0
pod	2	3	66.6
total	41	46	89.1

package Net::TinyERP;
use strict;
use warnings;
use Net::TinyERP::NotaFiscal;
use Net::TinyERP::NotaFiscalServicos;

our $VERSION = '0.09';

sub new {
    my ($class, @params) = @_;
    die 'Net::TinyERP->new() precisa do argumento "token"' unless @params;
    my %params = @params > 1 ? @params : %{$params[0]};
    my $self = {
        token       => $params{token} || die 'argumento "token" obrigatório',
        api_version => $params{api_version} || '2.0',
    };
    bless $self, $class;
}

sub nota_fiscal {
    my ($self) = @_;
    if (!exists $self->{_nf_obj}) {
        $self->{_nf_obj} = Net::TinyERP::NotaFiscal->new($self);
    }
    return $self->{_nf_obj};
}

sub nota_servicos {
    my ($self) = @_;
    if (!exists $self->{_nfs_obj}) {
        $self->{_nfs_obj} = Net::TinyERP::NotaFiscalServicos->new($self);
    }
    return $self->{_nfs_obj};
}

1;
__END__