NAME
    WWW::NFSe::Guarapari- Module for issuance electronic invoice and
    customer management.

VERSION
    version 0.02

SYNOPSIS
        use WWW::NFSe::Guarapari; 

        my $nfse = WWW::NFSe::Guarapari->new();
        #my $nfse= new WWW::NFSe::Guarapari();

        # Loga no sistema
        $nfse->logar( "cpfcnpj", "senha" );

        # Novo Cliente(Tomador/Intermediário)
        my $tipo_tomador = "J"; # F - J - E(Estrangeiro)
        my $documento = "000.000.000-00"; # CPF ou CNPJ
        my $nome = "Fulano de Tal";
        my $NomeFantasia = "Beltranos S.A"; #If tipo_tomador = "F"
        my $InscricaoMunicipal = "000.000"; #If tipo_tomador = "F"
        my $InscricaoEstadual = "000.000"; #If tipo_tomador = "F"
        my $telefone = "";
        my $email = "fulano@de.tal";
        my $municipioEstrangeiro = "NeverLand"; #If tipo_tomador = "E"
        my $PaisEstrangeiro = "NeverLand"; #If tipo_tomador = "E"
        my $tipologradouro = "";
        my $tipoEndereco = "-1"; # -1/Selecione | 3/Cobrança | 2/Comercial | 4/Correspondência | 1/Residencial
        my $logradouro = "";
        my $numero = "";
        my $complemento = "";
        my $bairro = "";
        my #cep = "000.000-000";
        my $uf = "DF";
        my $cidades = "";

        print $nfse->novo_cliente( $tipo_tomador, $documento, $nome, $telefone, $email, $tipologradouro, $tipoendereco, $logradouro, $numero, $complemento, $bairro, $cep, $uf, $cidades );

METHODS
  logar()
    Loga no painel de controle. Este método deverá ser chamado antes de
    qualquer outro método. Ativa flag $statusLogin.

        my $status_login = $painel->logar($email, $senha);

    Return string

        logged, invalid login, not found, unknow HTTP error, connection error

  novo_cliente()
    Cria novo tomador/Intermediário

        # Novo Cliente(Tomador/Intermediário)
        my $tipo_tomador = "J"; # F - J - E(Estrangeiro)
        my $documento = "000.000.000-00"; # CPF ou CNPJ
        my $nome = "Fulano de Tal";
        my $NomeFantasia = "Beltranos S.A";     #If tipo_tomador = "F"
        my $InscricaoMunicipal = "000.000";     #If tipo_tomador = "F"
        my $InscricaoEstadual = "000.000";      #If tipo_tomador = "F"
        my $telefone = "";
        my $email = "fulano@de.tal";
        my $municipioEstrangeiro = "NeverLand";  #If tipo_tomador = "E"
        my $PaisEstrangeiro = "NeverLand";       #If tipo_tomador = "E"
        my $tipologradouro = "";
        my $tipoEndereco = "-1"; # -1/Selecione | 3/Cobrança | 2/Comercial | 4/Correspondência | 1/Residencial
        my $logradouro = "";
        my $numero = "";
        my $complemento = "";
        my $bairro = "";
        my #cep = "000.000-000";
        my $uf = "DF";
        my $cidades = "";

        print $nfse->novo_cliente( $tipo_tomador, $documento, $nome, $telefone, $email, $tipologradouro, $tipoendereco, $logradouro, $numero, $complemento, $bairro, $cep, $uf, $cidades );

    Return JSON

        {"nome":"Fulano de Tal","resposta":"registrado","status":"sucesso","codigo":"107630"}
        {"resposta":"E-mail em uso","status":"erro"}
        {"resposta":"efetue login primeiro","status":"erro"}

AUTHOR
    Álvaro Luiz Andrade <alvaro@web2solutions.com.br>

COPYRIGHT AND LICENSE
    This software is copyright (c) 2013 by WEB2 Soluções.

    This is free software; you can redistribute it and/or modify it under
    the same terms as the Perl 5 programming language system itself.