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.pm  view on Meta::CPAN

}

sub Build_PL {
    my $meta = get_meta();
    printf "Creating new 'Build' script for '%s' version '%s'\n", $meta->name, $meta->version;
    my $dir = $meta->name eq 'Module-Build-Tiny' ? "use lib '../lib';" : '';
    write_file( 'Build', "#!$^X\n$dir\nuse lib '.';use " . __PACKAGE__ . ";\nBuild();\n" );
    make_executable('Build');
    my @env = defined $ENV{PERL_MB_OPT} ? split_like_shell( $ENV{PERL_MB_OPT} ) : ();
    write_file( '_build_params', encode_json( [ \@env, \@ARGV ] ) );
    $meta->save(@$_) for ['MYMETA.json'], [ 'MYMETA.yml' => { version => 1.4 } ];
}

 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/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/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;

 view release on metacpan or  search on metacpan

t/10base.t  view on Meta::CPAN

# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl base.t'
use strict;
$^W++;
use lib qw(blib lib);
use Algorithm::Diff::Any qw(diff LCS traverse_sequences traverse_balanced sdiff);
use Algorithm::Diff;
use Data::Dumper;
use Test;

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

use strict;
use lib '.';
use inc::Module::Install;

name            'Algorithm-Diff-XS';
license         'perl';
all_from        'lib/Algorithm/Diff/XS.pm';

 view release on metacpan or  search on metacpan

t/base.t  view on Meta::CPAN

# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl base.t'
use strict;
$^W++;
use lib qw(blib lib);
use Algorithm::Diff qw(diff LCS traverse_sequences traverse_balanced sdiff);
use Data::Dumper;
use Test;

BEGIN

 view release on metacpan or  search on metacpan

lib/Algorithm/Evolutionary/Fitness.pm  view on Meta::CPAN

use strict; #-*-cperl-*-
use warnings;

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

=head1 NAME

Algorithm::Evolutionary::Fitness - Base class for fitness functions

 view release on metacpan or  search on metacpan

script/bitflip.pl  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use lib qw( ../lib lib );

use version; our $VERSION = qv('0.0.3');
use Algorithm::Evolutionary::Simple qw( random_chromosome mutate);
use Time::HiRes qw( gettimeofday tv_interval );
use v5.14;

 view release on metacpan or  search on metacpan

lib/Algorithm/Evolutionary/Utils.pm  view on Meta::CPAN

use strict; #-*-CPerl-*-
use warnings;

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

=encoding utf8

=head1 NAME

 view release on metacpan or  search on metacpan

lib/Algorithm/Evolutionary/Experiment.pm  view on Meta::CPAN

use strict; #-*-CPerl-*- -*- hi-lock -*- 
use warnings;

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

=head1 NAME

Algorithm::Evolutionary::Experiment - Class for setting up an
experiment with algorithms and population 

 view release on metacpan or  search on metacpan

examples/breeding_perls.pl  view on Meta::CPAN

#!/usr/bin/perl
use lib '../lib';

## This example is geared towards those who are familiar with a certain
## infamous PerlMonks writeup...

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

 view release on metacpan or  search on metacpan

examples/canned_example1.pl  view on Meta::CPAN

#!/usr/bin/perl -w

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

### canned_example1.pl

use strict;
use Algorithm::ExpectationMaximization;

 view release on metacpan or  search on metacpan

t/99-run_test_classes.t  view on Meta::CPAN

#!/usr/bin/perl -T

use lib 't/tests';
use Test::ComplexGraph;
use Test::CyclicGraph;
use Test::ObjectsAsNodes;
use Test::Parameters;
use Test::SingletonGraph;