view release on metacpan or  search on metacpan

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

package API::CPanel;

use strict;
use warnings;
use lib qw(../..);

use Exporter::Lite;
use LWP::UserAgent;
#use XML::LibXML;
use XML::Simple;

 view release on metacpan or  search on metacpan

t/01-test.t  view on Meta::CPAN

#!/usr/bin/perl -w

use strict;
use warnings;
use lib qw( ./lib );


use Data::Dumper;

our $ONLINE;

 view release on metacpan or  search on metacpan

bin/drip_client.pl  view on Meta::CPAN

=cut

use v5.14;
use strict;
use lib '/usr/pair/perl/lib';
use Pair::Result ':all';

use Data::Printer;
use Getopt::Long;
use Pod::Usage;

 view release on metacpan or  search on metacpan

examples/edw/Rest.pl  view on Meta::CPAN

#
###############################################################################

use strict;

use lib qw( ./lib );

use File::Slurp();
use Pod::Usage();
use Getopt::Long();
use HTTP::Tiny();

 view release on metacpan or  search on metacpan

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

package API::ISPManager;

use strict;
use warnings;
use lib qw(../..);

use Exporter::Lite;
use LWP::UserAgent;
#use XML::LibXML;
use XML::Simple;

 view release on metacpan or  search on metacpan

t/types/001_hashref_restricted.t  view on Meta::CPAN

use Test::Spec;
use Test::Exception;

use File::Basename;
use lib dirname(__FILE__);

use API::MailboxOrg::Types qw(HashRefRestricted);

describe 'HashRefRestricted' => sub {
    it 'allows an empty hash' => sub {

 view release on metacpan or  search on metacpan

t/mikrotik-online.t  view on Meta::CPAN

#!/usr/bin/env perl

use warnings;
use strict;

use lib './';

use Test::More;

plan skip_all =>
    'On-line tests. Set API_MIKROTIK_ONLINE to "host:user:pass:tls" to run.'

 view release on metacpan or  search on metacpan

t/01_load_modules.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More  tests => 51;
use FindBin qw/ $Bin /;
use lib "$Bin/../lib";

use_ok('API::ParallelsWPB');
use_ok('API::ParallelsWPB::Requests');
use_ok('API::ParallelsWPB::Response');

 view release on metacpan or  search on metacpan

t/compoment.t  view on Meta::CPAN

use Carp;
use Test::More;
use Data::Dumper;

use lib 't';
use TestData;

BEGIN {
    plan tests => 10;
    use_ok( 'API::Plesk::Component' );

 view release on metacpan or  search on metacpan

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

#========================================================================
package API::PleskExpand;

use strict;
use warnings;
use lib qw(../..);

use API::Plesk;
use base 'API::Plesk';

use Data::Dumper;

 view release on metacpan or  search on metacpan

t/test.pm  view on Meta::CPAN

use strict;
use warnings;

use Path::Class;
use lib file(__FILE__)->dir->parent->subdir('lib')->stringify;
use lib lib => 't/lib' => glob 'modules/*/lib';


sub import {
    my ($class) = @_;

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use strict;
use warnings;

use lib 'inc';

use Module::Build;
use MyBuilder;

my $builder = MyBuilder->new(

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

use 5.008;
use ExtUtils::MakeMaker;
use strict;
use lib "scripts";

use PBConfig;

@config = (
	[ "ConfigPath" , "s", "/etc/arcx", "Configuration path, where ARCv2 shall find its files." ],

 view release on metacpan or  search on metacpan

t/03-package.t  view on Meta::CPAN

use strict;

use Test::More tests => 3;

use FindBin;
use lib $FindBin::Bin;

use My;

BEGIN {
    open *STDIN, '<&', IO::Pty->new

 view release on metacpan or  search on metacpan

examples/sherlock.pl  view on Meta::CPAN

#!perl

use lib '../lib', 'lib';

BEGIN {
    @ARGV = ('http://www.gutenberg.org/cache/epub/1661/pg1661.txt');
}

 view release on metacpan or  search on metacpan

rev_AR_template.pl  view on Meta::CPAN

#! /usr/bin/perl -w

use lib './ARS';
use ARS::CodeTemplate;

ARS::CodeTemplate::init_template();

 view release on metacpan or  search on metacpan

applications/archive.pl  view on Meta::CPAN

use warnings;           # Must be used in test mode only. This reduces a little process speed
#use diagnostics;       # Must be used in test mode only. This reduces a lot of process speed

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

BEGIN { if ( $ENV{ASNMTAP_PERL5LIB} ) { eval 'use lib ( "$ENV{ASNMTAP_PERL5LIB}" )'; } }

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

use DBI;
use Time::Local;

 view release on metacpan or  search on metacpan

examples/tag_list.cgi  view on Meta::CPAN

#!perl

use strict;
use warnings;
#use lib '../';
use AUBBC;
my $aubbc = AUBBC->new();

# Change some default settings
$aubbc->settings(

 view release on metacpan or  search on metacpan

scripts/benchmarks.pl  view on Meta::CPAN

use warnings;

use FindBin '$Bin';
use List::Util qw(shuffle);

use lib 'lib';
use lib "$Bin/../lib", "$Bin/../blib/lib", "$Bin/../blib/arch";

use AVLTree;
# use Tree::AVL;

use Benchmark;

 view release on metacpan or  search on metacpan

t/lib/TestHelper/CreateTestFiles.pm  view on Meta::CPAN

use AWS::Lambda::Quick (
    name => 'whatever',
    extra_files => 'lib',
);

use lib qw(lib);
use Greeting;
use JSON::PP qw( encode_json );

sub handler {
    my $data = shift;

 view release on metacpan or  search on metacpan

author/perl-stripper/perl-stripper/handler.pl  view on Meta::CPAN

use v5.36;
use utf8;
use lib "$ENV{'LAMBDA_TASK_ROOT'}/local/lib/perl5";
use lib "$ENV{'LAMBDA_TASK_ROOT'}/local/lib/perl5/aarch64-linux";

use Perl::Strip;
use Plack::Request;
use AWS::Lambda::PSGI;

 view release on metacpan or  search on metacpan

t/010_basic.t  view on Meta::CPAN

use strict;
use warnings 'all';
use Test::More;
use Data::Dumper;
use FindBin qw/ $Bin /;
use lib "$Bin/../lib";

use Carp 'confess';
$SIG{__DIE__} = \&confess;

plan skip_all => '$ENV{AWS_ACCESS_KEY_ID} && $ENV{AWS_SECRET_ACCESS_KEY} must both be defined to run this test'

 view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

no warnings 'once';
use Test::More 'no_plan';
use Test::Exception;
use Data::Dumper;
use FindBin qw/ $Bin /;
use lib "../lib";

BEGIN {
  use_ok('AWS::SNS::Confess', qw/confess/);
}

 view release on metacpan or  search on metacpan

author.t/01_verify.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Test::Exception;

use lib '../lib';

use_ok('AWS::SNS::Verify');


note "Happy path";

 view release on metacpan or  search on metacpan

t/01.basic.t  view on Meta::CPAN

use strict;
use ExtUtils::MakeMaker;
use FindBin '$Bin';
use constant TEST_COUNT => 11;

use lib "$Bin/lib","$Bin/../lib","$Bin/../blib/lib","$Bin/../blib/arch";

use Test::More tests => TEST_COUNT;

use_ok('AWS::Signature4');
use_ok('HTTP::Request::Common');

 view release on metacpan or  search on metacpan

t/01_trace.t  view on Meta::CPAN

use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../";

use AWS::XRay qw/ capture /;
use Test::More;
use Time::HiRes qw/ sleep /;
use t::Util qw/ reset segments /;

 view release on metacpan or  search on metacpan

t/01-abilities.t  view on Meta::CPAN

#!perl

use lib 't/lib';
use TestManager;
use TestRole;
use TestUser;
use Test::More tests => 29;

 view release on metacpan or  search on metacpan

examples/ace.pl  view on Meta::CPAN

#!/usr/bin/perl

# Simple interface to acedb.
# Uses readline for command-line editing if available.
use lib '..','..blib/lib','../blib/arch';
use Ace 1.66;
use Getopt::Long;
use Text::ParseWords;
use strict vars;
use vars qw/@CLASSES @HELP_TOPICS/;

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

#!/usr/bin/env perl
                                                                use lib qw(lib);
                                                        use utf8;use Acme::ǝmɔA;
                                                                                
                                                         ؛ʇdıɹɔs‾pʃınq‾ǝʇɐǝɹɔ<-(
                                             'bǝɹ‾pʃınq$ <= sǝɹınbǝɹ‾ǝɹnƃıɟuoɔ  
                                             'bǝɹ‾pʃınq$ <=     sǝɹınbǝɹ‾pʃınq  

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use strict;
use warnings;

use lib 'inc';

use Module::Build;
use MyBuilder;

my $builder = MyBuilder->new(