view release on metacpan or  search on metacpan

bench_call  view on Meta::CPAN

#!perl -w
use strict;
use lib qw(lib);
use Benchmark qw(cmpthese);
use Algorithm::GenerateSequence;
my $seq1 = Algorithm::GenerateSequence->new( ([1..100]) x 100 );
my $seq2 = Algorithm::GenerateSequence->new( ([1..100]) x 100 );
cmpthese( -2 => {

 view release on metacpan or  search on metacpan

examples/cluster_after_data_normalization.pl  view on Meta::CPAN

#!/usr/bin/perl -w

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

##  cluster_after_data_normalization.pl

##  IMPORTANT:  Read the 6 point customization of a script like this in the file:
##

 view release on metacpan or  search on metacpan

inc/ExtUtils/testlib.pm  view on Meta::CPAN

# relative "blib/lib" onto @INC.
my $cwd;
BEGIN {
    ($cwd) = getcwd() =~ /(.*)/;
}
use lib map { File::Spec->rel2abs($_, $cwd) } qw(blib/arch blib/lib);
1;
__END__

 view release on metacpan or  search on metacpan

t/1.t  view on Meta::CPAN

#!/usr/bin/perl
use Test::More tests => 10;
#use lib "../lib";

BEGIN { use_ok( 'Algorithm::Line::Bresenham', qw/line circle quad_bezier ellipse_rect polyline thick_line varthick_line/); }

use Data::Dumper;

 view release on metacpan or  search on metacpan

examples/example1.pl  view on Meta::CPAN

#!/usr/bin/perl -w

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


##  example1.pl

##  Highlights:

 view release on metacpan or  search on metacpan

demos/dada  view on Meta::CPAN

#!/usr/bin/perl -w
use strict;
use lib qw(../blib/lib ./blib/lib);
use Algorithm::MarkovChain;

use Data::Dumper;

my $mc = Algorithm::MarkovChain->new();

 view release on metacpan or  search on metacpan

app/run_experiment.pl  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use lib qw(../lib ../../Algorithm-Evolutionary/lib);

use YAML qw(LoadFile);
use IO::YAML;
use DateTime;

 view release on metacpan or  search on metacpan

t/algorithm_odometer_tiny.t  view on Meta::CPAN

L<http://perldoc.perl.org/perlartistic.html>.

=cut

use FindBin ();
use lib $FindBin::Bin;
use Algorithm_Odometer_Tiny_Testlib;
use List::Util qw/reduce/;

use constant TESTCOUNT => 16; ## no critic (ProhibitConstantPragma)
use Test::More tests => TESTCOUNT;

 view release on metacpan or  search on metacpan

ex/bench.pl  view on Meta::CPAN

use strict;
use warnings;

use lib 'lib';

# BEGIN { $ENV{ALGORITHM_QUADTREE_BACKEND} = 'Algorithm::QuadTree::PP'; }
use Algorithm::QuadTree;
use Benchmark qw(cmpthese);

 view release on metacpan or  search on metacpan

ex/bench.pl  view on Meta::CPAN

use strict;
use warnings;

use lib 'lib';

BEGIN { $ENV{ALGORITHM_QUADTREE_BACKEND} = 'Algorithm::QuadTree::PP'; }
use Algorithm::QuadTree;
use Benchmark qw(cmpthese);

 view release on metacpan or  search on metacpan

examples/generate_random_points.pl  view on Meta::CPAN

#!/usr/bin/perl -w

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

### generate_random_points.pl

use strict;
use Algorithm::RandomPointGenerator;

 view release on metacpan or  search on metacpan

t/Algorithm-RectanglesContainingDot_XS.t  view on Meta::CPAN

#!/usr/bin/perl

# use lib '../Algorithm-RectanglesContainingDot/lib';

use Test::More tests => 20003;

BEGIN { use_ok('Algorithm::RectanglesContainingDot_XS') };
BEGIN { use_ok('Algorithm::RectanglesContainingDot') };

 view release on metacpan or  search on metacpan

b/0-or.b  view on Meta::CPAN

#!/usr/bin/perl
use lib '../';
use Benchmark qw(:all);
use Data::Dumper;
use Algorithm::SAT::Expression;
my $result = cmpthese(
    100000,

 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;

author 'mateu - Mateu X. Hunter (cpan:MATEU) <hunter@missoula.org>';

1;

 view release on metacpan or  search on metacpan

examples/bench.pl  view on Meta::CPAN

use strict;
use warnings;
use lib 'lib';
use Algorithm::SpatialIndex;
use Algorithm::SpatialIndex::Storage::Redis;
use lib 't/lib';
use Algorithm::SpatialIndex::Test;

use Algorithm::QuadTree;
use Benchmark qw(cmpthese timethese);

 view release on metacpan or  search on metacpan

t/30strategy-mquadtree.t  view on Meta::CPAN

my $tlibpath;
BEGIN {
  $tlibpath = -d "t" ? "t/lib" : "lib";
}
use lib $tlibpath;

use Algorithm::SpatialIndex::MQTreeTest;
Algorithm::SpatialIndex::MQTreeTest->run('Memory');

 view release on metacpan or  search on metacpan

examples/bench.pl  view on Meta::CPAN

use strict;
use warnings;
use lib 'lib';
use Algorithm::SpatialIndex;
use Algorithm::QuadTree;
use Benchmark qw(cmpthese timethese);

# ordered or random or concentrated_random

 view release on metacpan or  search on metacpan

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

#     REVISION:  ---
#===============================================================================

use strict;
use warnings;
use lib 'lib';
use Algorithm::TSort qw(Graph tsort);
use autouse 'Data::Dumper'=> 'Dumper';
use Test::More qw(no_plan);

my $buf = "1 2 3\n2 4\n3 4\n5 5\n6 7\n7 6";

 view release on metacpan or  search on metacpan

examples/retrieve_similar_tickets.pl  view on Meta::CPAN

###  thousands, the value of this parameter is likely to be between 2 and
###  3.  See the writeup on this parameter in the API description in the
###  main documentation.


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

use strict;
use Algorithm::TicketClusterer;

my $fieldname_for_clustering = "Description";

 view release on metacpan or  search on metacpan

example/cb.pl  view on Meta::CPAN

# usage: perl cb.pl

use strict;
use warnings;
use lib '../lib', 'lib';
use Algorithm::TravelingSalesman::BitonicTour;

my $b = Algorithm::TravelingSalesman::BitonicTour->new;

# Grid points from Cormen, Figure 15.9, p. 365.  Note that points can be added

 view release on metacpan or  search on metacpan

examples/calculate_similarity_matrix_for_all_normalized_docs.pl  view on Meta::CPAN

#!/usr/bin/perl -w

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

## calculate_similarity_matrix_for_all_normalized_docs.pl


#  This script demonstrates how you can calculate the similarity matrix for

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

use lib qw(lib);
use Module::Build::Compat;
Module::Build::Compat->run_build_pl(args => \@ARGV);
Module::Build::Compat->write_makefile(build_class => 'Module::Build');

 view release on metacpan or  search on metacpan

bin/alice  view on Meta::CPAN

BEGIN {
  my $bin = $FindBin::Bin; 

  # running from source dir
  if (-e "$bin/../Makefile.PL") {
    eval "use lib '$bin/../lib'";

    # extlib present
    if (-e "$bin/../extlib") {
      eval "use lib '$bin/../extlib/lib/perl5'";
      eval "use local::lib '$bin/../extlib'";
    }
  }
  require Alice::Standalone;
}

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use strict;
use warnings;

use lib "inc";

#### we need the platform-specific module
my %platforms =(
    # Unix = default, thus not listing all UNIX like systems
    MSWin32 => 'Windows',

 view release on metacpan or  search on metacpan

examples/example.pl  view on Meta::CPAN

#! /usr/bin/env perl

use lib qw+../blib/lib/+;
use Alien::BWIPP;
use Data::Dumper;

my $ean13 = new Alien::BWIPP::ean13;

 view release on metacpan or  search on metacpan

corpus/libpalindrome/configure  view on Meta::CPAN

    # AIX (on Power*) has no versioning support, so currently we cannot hardcode correct
    # soname into executable. Probably we can add versioning support to
    # collect2, so additional links can be useful in future.
    aix,yes) # traditional libtool
      dynamic_linker='AIX unversionable lib.so'
      # If using run time linking (on AIX 4.2 or later) use lib<name>.so
      # instead of lib<name>.a to let people know that these are not
      # typical AIX shared libraries.
      library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
      ;;
    aix,no) # traditional AIX only

 view release on metacpan or  search on metacpan

lib/Alien/Base/ModuleBuild/FAQ.pod  view on Meta::CPAN

=item set C<alien_provides_cflags> and C<alien_provides_libs> in C<Build.PL>.

Add something like this to your C<Build.PL>:

 # Build.PL
 use lib 'inc';
 use My::ModuleBuild;
 
 My::ModuleBuild->new(
   ...
   alien_provides_cflags => '-I/usr/include/foo',

lib/Alien/Base/ModuleBuild/FAQ.pod  view on Meta::CPAN

In general, this means specifying a subclass in your C<Build.PL> and bundling it in your distribution C<inc> directory.

C<Build.PL>:

 ...
 use lib 'inc';
 use My::ModuleBuild;
 
 My::ModuleBuild->new(
   ...
 )->create_build_script;

 view release on metacpan or  search on metacpan

t/alien_base.t  view on Meta::CPAN

use Test2::Bundle::Extended;
use lib 'corpus/lib';
use Env qw( @PKG_CONFIG_PATH );
use File::Glob qw( bsd_glob );
use File::chdir;
use File::Spec;

 view release on metacpan or  search on metacpan

alienfile  view on Meta::CPAN

use constant FROM_SOURCE =>
    exists $ENV{ALIEN_BAZEL_FROM_SOURCE}
    ? $ENV{ALIEN_BAZEL_FROM_SOURCE}
    : 0;

use lib 'lib';
use Alien::Bazel::Util;

# check if the operating system already has Bazel installed
plugin 'Probe::CommandLine' => (
    command => 'bazel',

 view release on metacpan or  search on metacpan

inc/My/Builder.pm  view on Meta::CPAN

use strict;
use warnings;
use base 'Module::Build';

use lib "inc";
use File::Spec::Functions qw(catdir catfile splitpath catpath rel2abs abs2rel);
use File::Path;
use File::Copy qw(cp);
use File::Fetch;
use File::Find;