view release on metacpan or  search on metacpan

eg/read.pl  view on Meta::CPAN

use strict;
use lib '.';
use Acme::Ukrop;

ÄÏËÉ (<>) ÔÏ
	×iÄÒiÖÅÍÏÞÉÅÝÏ;
	ËÁÖÉ "ÔÉ ËÁÚÁ×: $_\n";

 view release on metacpan or  search on metacpan

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

use strict;
use lib qw(blib/lib);
use Acme::Void;

push my @test, sub {

    eval {

 view release on metacpan or  search on metacpan

t/yoda.t  view on Meta::CPAN

#!/usr/bin/perl -w
use strict;

use lib qw( ./lib/ );
use Acme::Yoda;
use Test::More tests => 16;


ok(my $yoda = Acme::Yoda->new(),           'Create Yoda object');

 view release on metacpan or  search on metacpan

lib/ful.pm  view on Meta::CPAN

Brings the first C<lib/> directory found by directory ascencion and adds it to
C<@INC>.

Instead of:

    use lib::relative '../../lib';
    # or
    use FindBin;
    use lib "$FindBin::Bin/../lib";
    # or even
    BEGIN {
        use Path::Tiny;
        my $base = path(__FILE__)->parent;
        $base = $base->parent until -d "$base/lib" or $base->is_rootdir;

 view release on metacpan or  search on metacpan

t/require.t  view on Meta::CPAN

use Test::More 0.96;
use Test::Fatal;
use Test::FailWarnings;
use Capture::Tiny qw/capture/;
use File::Spec;
use lib 't/lib';

plan skip_all => "Your filesystem respects case"
  unless -f 't/lib/foo.pm'; # it's really Foo.pm

use Acme::require::case;

 view release on metacpan or  search on metacpan

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

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/lib";

use Test::More tests => 1;
use Test::Output;

sub use_it { eval "use Acme::this;"; }

 view release on metacpan or  search on metacpan

t/naughty_modules.t  view on Meta::CPAN

# as we want to let the naughty modules do their thing we can't use the -w flag
# irritatingly warnings come out on the underlying IO STDERR, rather than
# anything tied to the file handle.
use strict;

use lib 't';
use Test::More tests => 8;
use GagMe;

# Aargh. WTF is test harness doing turning on warnings when I explicity
# don't want them?

 view release on metacpan or  search on metacpan

examples/Class.pl  view on Meta::CPAN

#!/usr/bin/perl 

# Modules {{{
use FindBin qw($Bin);
use lib "$Bin/../lib";
use 5.010;
use strict;
use warnings;
use Acpi::Class;
#}}}

 view release on metacpan or  search on metacpan

t/03-pod-coverage.t  view on Meta::CPAN

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

use FindBin qw/$Bin/;
use lib "$Bin/../lib";

# Ensure a recent version of Test::Pod::Coverage
my $min_tpc = 1.08;
eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"

 view release on metacpan or  search on metacpan

test/delete_process_instance.pl  view on Meta::CPAN

#!/usr/bin/env perl
use FindBin;
use lib "$FindBin::Bin/../lib";
use Activiti::Rest::Client;
use Data::Dumper;

binmode STDOUT,":utf8";

 view release on metacpan or  search on metacpan

ex/declare.pl  view on Meta::CPAN

use lib qw(lib);
use Moses::Declare;

bot MasterMold {
    server 'irc.perl.org';
    channels '#moses';

 view release on metacpan or  search on metacpan

lib/Ado/Build.pm  view on Meta::CPAN

  #Build.PL
  use 5.014000;
  use strict;
  use warnings FATAL => 'all';
  use FindBin;
  use lib("$FindBin::Bin/lib");
  use Ado::Build;
  my $builder = Ado::Build->new(..);
  $builder->create_build_script();

  #on the command line

 view release on metacpan or  search on metacpan

builder/Affix/Builder.pm  view on Meta::CPAN

    method Build_PL() {
        die "Pure perl Affix? Ha! You wish.\n" if $pureperl;
        say sprintf 'Creating new Build script for %s %s', $meta->name, $meta->version;
        $self->write_file( 'Build', sprintf <<'', $^X, __PACKAGE__, __PACKAGE__ );
#!%s
use lib 'builder';
use %s;
%s->new( @ARGV && $ARGV[0] =~ /\A\w+\z/ ? ( action => shift @ARGV ) : (),
    map { /^--/ ? ( shift(@ARGV) =~ s[^--][]r => 1 ) : /^-/ ? ( shift(@ARGV) =~ s[^-][]r => shift @ARGV ) : () } @ARGV )->Build();

        make_executable('Build');

 view release on metacpan or  search on metacpan

bin/agent_net.pl  view on Meta::CPAN

pod2usage(VERBOSE => 2)  if ($opt->get_man);

# Hidden switch for dev testing
if ($opt->get_blib)
{
	use lib 'blib/lib';
}

$verbose = $opt->get_verbose ? $opt->get_verbose : VERBOSE;

# Optionally set default jabber/xmpp parameters to log in with

 view release on metacpan or  search on metacpan

t/TCLI.Command.t  view on Meta::CPAN

#!/usr/bin/env perl
# $Id: TCLI.Command.t 57 2007-04-30 11:07:22Z hacker $

use Test::More qw(no_plan);
use lib 'blib/lib';

use Data::Dump qw(pp);

# TASK Test suite is not complete. Need testing for catching errors.
BEGIN {

 view release on metacpan or  search on metacpan

lib/Aion/Emitter.pm  view on Meta::CPAN

	Listener::WeightListener#listen,6=Event::BallEvent
	Listener::WeightListener#minimize,6=Event::BallEvent#mini „Minimize version”



	use lib 'lib';
	
	use Aion::Emitter;
	use Event::BallEvent;
	
	my $emitter = Aion::Emitter->new;

 view release on metacpan or  search on metacpan

lib/Aion/Fs.pm  view on Meta::CPAN

	sub ex { 123 }
	1;



	use lib "lib";
	include("A")->new               # ~> A=HASH\(0x\w+\)
	[map include, qw/A N/]          # --> [qw/A N/]
	{ local $_="N"; include->ex }   # -> 123

=head2 catonce (;$file)

 view release on metacpan or  search on metacpan

lib/Aion/Run.pm  view on Meta::CPAN

	use Aion::Format qw/trappout/;
	
	use lib "lib";
	use Scripts::MyScript;
	
	trappout { Scripts::MyScript->new_from_args([qw/-a 1 -a 2 -a 3 +/])->calculate_sum } # => Result: 6\n
	trappout { Scripts::MyScript->new_from_args([qw/--operand=4 * --operand=2/])->calculate_sum } # => Result: 8\n

 view release on metacpan or  search on metacpan

lib/Aion/Spirit.pm  view on Meta::CPAN

	
	1;



	use lib ".";
	use N;
	
	N::x_1          # -> 1
	N::x_2          # -> 2.03
	N::y_1 0.5      # -> 1.5

 view release on metacpan or  search on metacpan

lib/Aion.pm  view on Meta::CPAN

	
	1;



	use lib "lib";
	use Animal;
	
	my $cat = Animal->new(type => 'cat');
	
	$cat->type   # => cat

lib/Aion.pm  view on Meta::CPAN

	
	1;



	use lib "lib";
	use Class::All::Stringify;
	
	my $s = Class::All::Stringify->new(key1=>"a", key2=>"b");
	
	$s->keysify	 # => key1, key2

 view release on metacpan or  search on metacpan

script/album  view on Meta::CPAN

use strict;

# Package or program libraries, if appropriate.
# $LIBDIR = $ENV{'LIBDIR'} || '/usr/local/lib/sample';
# use lib qw($LIBDIR);
# require 'common.pl';

# Package name.
my $my_package = 'Sciurix';
# Program name and version.

 view release on metacpan or  search on metacpan

t/03_access.t  view on Meta::CPAN

# -*- Mode: CPerl -*-
# t/03_access.t; test access

use lib qw(blib/lib blib/arch);
use Test::More tests => 28;
use Algorithm::BinarySearch::Vec qw(:all);
no warnings 'portable';

my $HAVE_QUAD = $Algorithm::BinarySearch::Vec::HAVE_QUAD;

 view release on metacpan or  search on metacpan

Examples/BitVectorDemo.pl  view on Meta::CPAN

#!/usr/bin/perl -w

#use lib '../blib/lib', '../blib/arch';

##  BitVectorDemo.pl

use strict;
use Algorithm::BitVector 1.26;

 view release on metacpan or  search on metacpan

maint/Makefile.PL.include  view on Meta::CPAN

BEGIN { -e 'Distar' or system("git clone git://git.shadowcat.co.uk/p5sagit/Distar.git") }
use lib 'Distar/lib';
use Distar;
use ExtUtils::MakeMaker 6.68 ();

author [
  'Stevan Little <stevan@iinteractive.com>',

 view release on metacpan or  search on metacpan

t/plugina.t  view on Meta::CPAN

use Test::More;

use lib qw( t );

# Since the module PluginLibA reexports the function CheckDigits() from
# Algorithm::CheckDigits, we do not need to explicitly use that module to get
# the function into our name space.

 view release on metacpan or  search on metacpan

perl/t/01_mean_median.t  view on Meta::CPAN

use Test::More tests => 6;

use lib '../blib/lib','../blib/arch';

use_ok ("Algorithm::Cluster");
require_ok ("Algorithm::Cluster");

 view release on metacpan or  search on metacpan

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

use strict;
use warnings;

use FindBin qw($Bin);
use lib $Bin;

use Test::More qw(no_plan);

use Algorithm::Combinatorics qw(combinations);
use Tester;

 view release on metacpan or  search on metacpan

bin/curvefit  view on Meta::CPAN

our $VERSION = '1.03'; # VERSION 1.02

use strict;
use warnings;
use JSON::PP;
use lib "./lib";
use Algorithm::CurveFit::Simple qw(fit);

my @DOCS;
my %OPT = (v => 1);
foreach my $arg (@ARGV) {

 view release on metacpan or  search on metacpan

examples/examplefit.pl  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use lib '../lib';
use Algorithm::CurveFit;

my $formula = 'b*cos(x/10)+c*sin(x/10)';
my $variable = 'x';
my @xdata;

 view release on metacpan or  search on metacpan

lib/Algorithm/BoostedDecisionTree.pm  view on Meta::CPAN

#
# Algorithm::BoostedDecisionTree is a Perl module for boosted decision-tree based
# classification of multidimensional data.
# -------------------------------------------------------------------------------------

#use lib 'blib/lib', 'blib/arch';

#use 5.10.0;
use strict;
use warnings;
use Carp;