zigorou

#!/usr/bin/perl

use strict;
use warnings;
use ExtUtils::Installed;

local $\ = "\n";

my $ptn = shift @ARGV || '';
my @modules = ExtUtils::Installed->new->modules;

zigorou

#!/usr/bin/perl

use utf8;
use strict;
use warnings;

use Carp;
use HTML::TreeBuilder::LibXML;
use LWP::UserAgent;
use Perl6::Say;

zigorou

diff --git a/lib/URI/Template/Restrict.pm b/lib/URI/Template/Restrict.pm
index 22182de..7b93851 100644
--- a/lib/URI/Template/Restrict.pm
+++ b/lib/URI/Template/Restrict.pm
@@ -9,9 +9,11 @@ use List::MoreUtils qw(uniq);
 use Unicode::Normalize qw(NFKC);
 use URI;
 use URI::Escape qw(uri_escape_utf8);
+use URI::Split qw(uri_split uri_join);
 use URI::Template::Restrict::Expansion;

zigorou

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dump qw(dump);
use DBI;
use Test::More;
use Test::Exception;
use Test::mysqld;

zigorou

#!/usr/bin/perl

use strict;
use warnings;

package Foo;

use parent qw(Class::Accessor::Fast);

__PACKAGE__->mk_accessors(qw/name/);

zigorou

package Object::Container::CAF;

use parent qw(Class::Accessor::Fast Class::Singleton);

use Carp;
use Exporter::AutoClean;
use Module::Load;
use Class::Inspector;

our $VERSION = '0.01';

zigorou

package Object::Container::CAF;

use parent qw(Class::Accessor::Fast Class::Singleton);

use Carp;
use Exporter::AutoClean;
use Module::Load;
use Data::Util qw(is_invocant);

our $VERSION = '0.01';

zigorou

#!/usr/bin/perl

use strict;
use warnings;
use lib 'lib';

use Benchmark qw(cmpthese);
use Object::Container;
use Object::Container::CAF;

zigorou

@echo off

rem ------------------------------------------------------------
rem  wifictl.bat (zigorou@cpan.org)
rem  prerequire
rem    http://code.mincus.com/31/windows-wireless-api/
rem ------------------------------------------------------------

set PROGRAM_NAME=%0
set COMMAND=%1

zigorou

package SQL::BindedStatement;

use strict;
use warnings;
use Carp;
use Exporter qw(import);
use Data::Util qw(is_number is_string is_array_ref neat);
use Data::Validate qw(is_printable);
use DBI qw(:sql_types);
use SQL::Tokenizer qw(tokenize_sql);