view release on metacpan or  search on metacpan

API/Intis/Makefile.PL  view on Meta::CPAN

use ExtUtils::MakeMaker;
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile(
    NAME         => 'API::Intis',
    VERSION_FROM => 'lib/API/Intis.pm', # finds \$VERSION
    AUTHOR       => 'Nick Nomos (nnmos@cpan.org)',
    ABSTRACT     => 'Intis Telecom API',
    PREREQ_PM    => {
                        'Test::Simple' => '0',
                        'Modern::Perl' => '0',
                        'YAML::Tiny' => '0',
                        'WWW::Mechanize' => '0',
                        'Crypt::SSLeay' => '0',
                        'JSON' => '0',
                        'Digest::Perl::MD5' => '0',
                        'Switch' => '0',
                    },
);

API/Intis/lib/API/Intis.pm  view on Meta::CPAN

package API::Intis;
use Modern::Perl;
use utf8;

BEGIN {
    use Exporter ();
    use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
    $VERSION     = '1.00';
    @ISA         = qw(Exporter);
    #Give a hoot don't pollute, do not export more than needed by default
    @EXPORT      = qw();
    @EXPORT_OK   = qw();

API/Intis/lib/API/error_codes.pm  view on Meta::CPAN

package error_codes;
use Modern::Perl;
use Switch;

sub get_name_from_code  {
    my $code = shift;
    my $descr;
    switch ($code // "")
    {
        #        code keys
        case "000"       { $descr = 'Service unavailable'; }
        case "1"         { $descr = 'Signature not specified';  }