File Coverage

blib/lib/Net/TinyERP.pm

Criterion	Covered	Total	%
statement	18	23	78.2
branch	4	8	50.0
condition	2	2	100.0
subroutine	5	6	83.3
pod	2	3	66.6
total	31	42	73.8

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

our $VERSION = '0.06';

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__