view release on metacpan or search on metacpan
lib/Acme/Machi.pm view on Meta::CPAN
($obj eq $s_dir) && ($found = 1);
return 1 if $RESP;
while($elm = shift @queue){;
($np, $nd) = @$elm;
$key = basename($np);
$nd->{$key} = (-l $np or -f _)? undef : +{};
if (ref $nd->{$key}) {;
my $dh = IO::Dir->new("$np");
my $npp;
foreach ($dh->read()) {;
$npp = File::Spec->catfile($np,$_);
view release on metacpan or search on metacpan
lib/Acme/MadokaMagica/TvMembers.pm view on Meta::CPAN
use YAML::Tiny;
sub new {
my ($class, %args) = @_;
my $self = { _has_qb => undef };
my $ds = Data::Section::Simple->new($class);
my $sections = $ds->get_data_section;
for my $section_name ( keys %{$sections} ) {
my $yml = YAML::Tiny->read_string($sections->{$section_name});
my $member_info = $yml->[0];
lib/Acme/MadokaMagica/TvMembers.pm view on Meta::CPAN
my ($self) = @_;
my $line = (caller)[2];
my $limit = $self->{startline} +100;
if( $line >= $limit ) {
return undef;
}
return $self->has_qb ? $self->{witchename} : $self->lastname.' '.$self->firstname;
}
sub firstname {
my $self = shift;
my $line = (caller)[2];
my $limit = $self->{startline} +100;
if($line >= $limit ) {
return undef;
}
return $self->{firstname};
}
sub birthday {
my $self = shift;
my $line = (caller)[2];
my $limit = $self->{startline} +100;
if($line >= $limit ) {
return undef;
}
return $self->{birthday};
}
sub blood_type {
my $self = shift;
my $line = (caller)[2];
my $limit = $self->{startline} +100;
if( $line >= $limit ) {
return undef;
}
return $self->{blood_type};
}
sub lastname {
my $self = shift;
my $line = (caller)[2];
my $limit = $self->{startline} +100;
if( $line >= $limit ) {
return undef;
}
return $self->{lastname};
}
sub age {
my $self = shift;
my $line = (caller)[2];
my $limit = $self->{startline} +100;
if( $line >= $limit ) {
return undef;
}
return $self->{age};
}
sub color{
my ($self) = @_;
my $line = (caller)[2];
my $limit = $self->{startline} +100;
if( $line >= $limit ) {
return undef;
}
return $self->has_qb ? "black" : $self->{color};
}
lib/Acme/MadokaMagica/TvMembers.pm view on Meta::CPAN
my ($self) = @_;
my $line = (caller)[2];
my $limit = $self->{startline} +100;
if( $line >= $limit ) {
return undef;
}
$self->has_qb(1);
}
lib/Acme/MadokaMagica/TvMembers.pm view on Meta::CPAN
my ($self) = @_;
my $line = (caller)[2];
my $limit = $self->{startline} +100;
if( $line >= $limit ) {
return undef;
}
return $self->{say};
}
sub cv {
my $self = shift;
my $line = (caller)[2];
my $limit = $self->{startline} +100;
if( $line >= $limit ) {
return undef;
}
return $self->{cv};
}
view release on metacpan or search on metacpan
lib/Acme/Marvel/CinematicUniverse/Mite.pm view on Meta::CPAN
defined ${^GLOBAL_PHASE}
or eval { require Devel::GlobalDestruction; 1 }
or do {
carp( "WARNING: Devel::GlobalDestruction recommended!" );
*Devel::GlobalDestruction::in_global_destruction = sub { undef; };
};
# Constants
sub true () { !!1 } sub false () { !!0 }
sub ro () { 'ro' } sub rw () { 'rw' } sub rwp () { 'rwp' }
lib/Acme/Marvel/CinematicUniverse/Mite.pm view on Meta::CPAN
if ( @args ) {
require Data::Dumper;
local $Data::Dumper::Terse = 1;
local $Data::Dumper::Indent = 0;
$message = sprintf $message, map {
ref($_) ? Data::Dumper::Dumper($_) : defined($_) ? $_ : '(undef)'
} @args;
}
my $next = do { require Carp; \&{"Carp::$func"} };
@_ = ( $message );
goto $next;
lib/Acme/Marvel/CinematicUniverse/Mite.pm view on Meta::CPAN
my $info = $Role::Tiny::INFO{$role};
for ( @{ $info->{modifiers} || [] } ) {
my @args = @$_;
my $modification = shift @args;
my $handler = "HANDLE_$modification";
$me->$handler( $caller, undef, @args );
}
if ( $cb_after ) {
$_->( $role, $caller ) for @{ $cb_after->{$role} || [] };
}
return;
lib/Acme/Marvel/CinematicUniverse/Mite.pm view on Meta::CPAN
# Usage: $me, $caller, @with_args
sub HANDLE_with {
my ( $me, $caller ) = ( shift, shift );
while ( @_ ) {
my $role = shift;
my $args = ref($_[0]) ? shift : undef;
if ( $INC{'Role/Tiny.pm'} and 'Role::Tiny'->is_role( $role ) ) {
$me->_finalize_application_roletiny( $role, $caller, $args );
}
else {
$role->__FINALIZE_APPLICATION__( $caller, $args );
view release on metacpan or search on metacpan
lib/Acme/Matrix.pm view on Meta::CPAN
: map { sprintf("\033[38;5;%sm%s", $COLOURS[$i++], $_) } @{ $WORDS[int(rand(scalar @WORDS))] }, $space;
}
print shift(@{$word_lines{$_}}) || $space;
}
print "\n";
select(undef, undef, undef, $delay);
}
}
sub shutdown {
print "\033[0m";
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
$file =~ s|::|/|g;
$file .= '.pm';
local $@;
return eval { require $file; $mod->VERSION } || ( $@ ? undef: 0 );
}
# Load CPAN.pm and it's configuration
sub _load_cpan {
return if $CPAN::VERSION;
inc/Module/AutoInstall.pm view on Meta::CPAN
version->can('new')
) {
# use version.pm if it is installed.
return (
( version->new($cur) >= version->new($min) ) ? $cur : undef );
}
elsif ( $Sort::Versions::VERSION or defined( _load('Sort::Versions') ) )
{
# use Sort::Versions as the sorting algorithm for a.b.c versions
return ( ( Sort::Versions::versioncmp( $cur, $min ) != -1 )
? $cur
: undef );
}
warn "Cannot reliably compare non-decimal formatted versions.\n"
. "Please install version.pm or Sort::Versions.\n";
}
# plain comparison
local $^W = 0; # shuts off 'not numeric' bugs
return ( $cur >= $min ? $cur : undef );
}
# nothing; this usage is deprecated.
sub main::PREREQ_PM { return {}; }
view release on metacpan or search on metacpan
t/980_versions.t view on Meta::CPAN
# Henry Spencer was right:
#
# "Those who don't understand Unix are condemned to reinvent it, poorly."
#
undef $ENV {PATH};
my $FIND = "/usr/bin/find";
my $top = -d "blib" ? "blib/lib" : "lib";
my @files = `$FIND $top -name [a-z_]*.pm`;
chomp @files;
view release on metacpan or search on metacpan
t/00-report-prereqs.t view on Meta::CPAN
use ExtUtils::MakeMaker;
use File::Spec;
# from $version::LAX
my $lax_version_re =
qr/(?: undef | (?: (?:[0-9]+) (?: \. | (?:\.[0-9]+) (?:_[0-9]+)? )?
|
(?:\.[0-9]+) (?:_[0-9]+)?
) | (?:
v (?:[0-9]+) (?: (?:\.[0-9]+)+ (?:_[0-9]+)? )?
|
t/00-report-prereqs.t view on Meta::CPAN
for my $mod ( sort keys %{ $req_hash->{$phase}{$type} } ) {
next if grep { $_ eq $mod } @exclude;
my $want = $req_hash->{$phase}{$type}{$mod};
$want = "undef" unless defined $want;
$want = "any" if !$want && $want == 0;
if ($mod eq 'perl') {
push @reports, ['perl', $want, $]];
next;
t/00-report-prereqs.t view on Meta::CPAN
$file .= ".pm";
my ($prefix) = grep { -e File::Spec->catfile($_, $file) } @INC;
if ($prefix) {
my $have = MM->parse_version( File::Spec->catfile($prefix, $file) );
$have = "undef" unless defined $have;
push @reports, [$mod, $want, $have];
if ( $DO_VERIFY_PREREQS && $HAS_CPAN_META && $type eq 'requires' ) {
if ( $have !~ /\A$lax_version_re\z/ ) {
push @dep_errors, "$mod version '$have' cannot be parsed ($req_string)";
view release on metacpan or search on metacpan
devdata/article.html view on Meta::CPAN
</script>
<script type="text/javascript">
var windowOpen;
jQuery(document).on( 'ready post-load', function(){
jQuery( 'a.share-facebook' ).on( 'click', function() {
if ( 'undefined' !== typeof windowOpen ){ // If there's another sharing window open, close it.
windowOpen.close();
}
windowOpen = window.open( jQuery(this).attr( 'href' ), 'wpcomfacebook', 'menubar=1,resizable=1,width=600,height=400' );
return false;
});
devdata/article.html view on Meta::CPAN
</script>
<div id="fb-root"></div>
<script>(function(d, s, id) { var js, fjs = d.getElementsByTagName(s)[0]; if (d.getElementById(id)) return; js = d.createElement(s); js.id = id; js.src = '//connect.facebook.net/id_ID/sdk.js#xfbml=1&appId=249643311490&version=v2.3'; fjs.parentNode...
<script>
jQuery( document.body ).on( 'post-load', function() {
if ( 'undefined' !== typeof FB ) {
FB.XFBML.parse();
}
} );
</script>
<script type="text/javascript">
devdata/article.html view on Meta::CPAN
jQuery(window).load( function(){ jQuery( 'li.share-pinterest a span:visible' ).closest( '.share-pinterest' ).width( '80px' ); } );
</script>
<script>!function(d,s,id){var js,fjs=d.getElementsByTagName(s)[0],p=/^http:/.test(d.location)?'http':'https';if(!d.getElementById(id)){js=d.createElement(s);js.id=id;js.src=p+'://platform.twitter.com/widgets.js';fjs.parentNode.insertBefore(js,fj...
<script>
function renderGooglePlus1() {
if ( 'undefined' === typeof gapi ) {
return;
}
jQuery( '.g-plus' ).each(function() {
var $button = jQuery( this );
view release on metacpan or search on metacpan
t/author/consistent_version_numbers.t view on Meta::CPAN
use strict;
use File::Find;
use File::Slurp;
use Test::More qw(no_plan);
my $last_version = undef;
find({wanted => \&check_version, no_chdir => 1}, 'blib');
if (! defined $last_version) {
fail('Failed to find any files with $VERSION');
}
view release on metacpan or search on metacpan
t/author/consistent_version_numbers.t view on Meta::CPAN
use strict;
use File::Find;
use File::Slurp;
use Test::More qw(no_plan);
my $last_version = undef;
find({wanted => \&check_version, no_chdir => 1}, 'blib');
if (! defined $last_version) {
fail('Failed to find any files with $VERSION');
}
view release on metacpan or search on metacpan
t/00-report-prereqs.t view on Meta::CPAN
use ExtUtils::MakeMaker;
use File::Spec;
# from $version::LAX
my $lax_version_re =
qr/(?: undef | (?: (?:[0-9]+) (?: \. | (?:\.[0-9]+) (?:_[0-9]+)? )?
|
(?:\.[0-9]+) (?:_[0-9]+)?
) | (?:
v (?:[0-9]+) (?: (?:\.[0-9]+)+ (?:_[0-9]+)? )?
|
t/00-report-prereqs.t view on Meta::CPAN
$file =~ s{::}{/}g;
$file .= ".pm";
my ($prefix) = grep { -e File::Spec->catfile($_, $file) } @INC;
my $want = $req_hash->{$phase}{$type}{$mod};
$want = "undef" unless defined $want;
$want = "any" if !$want && $want == 0;
my $req_string = $want eq 'any' ? 'any version required' : "version '$want' required";
if ($prefix) {
my $have = MM->parse_version( File::Spec->catfile($prefix, $file) );
$have = "undef" unless defined $have;
push @reports, [$mod, $want, $have];
if ( $DO_VERIFY_PREREQS && $HAS_CPAN_META && $type eq 'requires' ) {
if ( $have !~ /\A$lax_version_re\z/ ) {
push @dep_errors, "$mod version '$have' cannot be parsed ($req_string)";
view release on metacpan or search on metacpan
lib/Acme/Mitey/Cards/Mite.pm view on Meta::CPAN
defined ${^GLOBAL_PHASE}
or eval { require Devel::GlobalDestruction; 1 }
or do {
carp( "WARNING: Devel::GlobalDestruction recommended!" );
*Devel::GlobalDestruction::in_global_destruction = sub { undef; };
};
# Constants
sub true () { !!1 } sub false () { !!0 }
sub ro () { 'ro' } sub rw () { 'rw' } sub rwp () { 'rwp' }
lib/Acme/Mitey/Cards/Mite.pm view on Meta::CPAN
if ( @args ) {
require Data::Dumper;
local $Data::Dumper::Terse = 1;
local $Data::Dumper::Indent = 0;
$message = sprintf $message, map {
ref($_) ? Data::Dumper::Dumper($_) : defined($_) ? $_ : '(undef)'
} @args;
}
my $next = do { require Carp; \&{"Carp::$func"} };
@_ = ( $message );
goto $next;
lib/Acme/Mitey/Cards/Mite.pm view on Meta::CPAN
my $info = $Role::Tiny::INFO{$role};
for ( @{ $info->{modifiers} || [] } ) {
my @args = @$_;
my $modification = shift @args;
my $handler = "HANDLE_$modification";
$me->$handler( $caller, undef, @args );
}
if ( $cb_after ) {
$_->( $role, $caller ) for @{ $cb_after->{$role} || [] };
}
return;
lib/Acme/Mitey/Cards/Mite.pm view on Meta::CPAN
# Usage: $me, $caller, @with_args
sub HANDLE_with {
my ( $me, $caller ) = ( shift, shift );
while ( @_ ) {
my $role = shift;
my $args = ref($_[0]) ? shift : undef;
if ( $INC{'Role/Tiny.pm'} and 'Role::Tiny'->is_role( $role ) ) {
$me->_finalize_application_roletiny( $role, $caller, $args );
}
else {
$role->__FINALIZE_APPLICATION__( $caller, $args );
view release on metacpan or search on metacpan
lib/Acme/Mobile/Therbligs.pm view on Meta::CPAN
}
my $Self;
{
$Self = __PACKAGE__->new(undef, {
SAME_KEY => DEFAULT_SAME_KEY,
NO_SENTENCE_CAPS => 0,
NO_SHIFT_CAPS => 0,
});
}
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
$VERSION = '0.85';
# Storage for the pseudo-singleton
$MAIN = undef;
*inc::Module::Install::VERSION = *VERSION;
@inc::Module::Install::ISA = __PACKAGE__;
}
inc/Module/Install.pm view on Meta::CPAN
defined $_[0]
and
! ref $_[0]
and
$_[0] =~ m/^[^\W\d]\w*(?:::\w+)*\z/s
) ? $_[0] : undef;
}
1;
# Copyright 2008 - 2009 Adam Kennedy.
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
$VERSION = '1.00';
# Storage for the pseudo-singleton
$MAIN = undef;
*inc::Module::Install::VERSION = *VERSION;
@inc::Module::Install::ISA = __PACKAGE__;
}
inc/Module/Install.pm view on Meta::CPAN
defined $_[0]
and
! ref $_[0]
and
$_[0] =~ m/^[^\W\d]\w*(?:::\w+)*\z/s
) ? $_[0] : undef;
}
1;
# Copyright 2008 - 2010 Adam Kennedy.
view release on metacpan or search on metacpan
lib/Acme/Monkey.pm view on Meta::CPAN
my $class = shift;
my $self = bless {}, $class;
$self->{hunger} = 80;
$self->{happiness} = 50;
$self->{drunkness} = 0;
$self->{sub} = undef;
return $self;
}
sub monkey {
print "Monkey!\n";
lib/Acme/Monkey.pm view on Meta::CPAN
sub new {
my $class = shift;
my %params = @_;
my $self = {};
$self->{WIDTH} = $params{'width'} || $params{'W'} || undef;
$self->{HEIGHT} = $params{'height'} || $params{'H'} || undef;
# TODO: Should we just default X,Y instead?
croak "Width required\n" if !defined($self->{WIDTH});
croak "Height required\n" if !defined($self->{HEIGHT});
view release on metacpan or search on metacpan
lib/Acme/MorningMusume/ShinMember.pm view on Meta::CPAN
->get_bloodtype;
$attributes{hometown} = (rand 1 < 0.5 ? $mom : $dad)->hometown;
utf8::decode($attributes{hometown});
$attributes{graduate_date} = undef;
$attributes{class} = int ($mom->class - rand($mom->class - $dad->class));
$attributes{emoticon} = [(@{$dad->emoticon||()},
@{$mom->emoticon||()})[0..rand 2]];
utf8::decode($_) for @{$attributes{emoticon}};
return %attributes;
view release on metacpan or search on metacpan
lib/Acme/MorningMusume.pm view on Meta::CPAN
2011-01-02
2011-09-29
2012-09-14
2014-09-30
);
unshift @date_joined, undef;
sub new {
my $class = shift;
my $self = bless {members => []}, $class;
lib/Acme/MorningMusume.pm view on Meta::CPAN
# $type can be one of the values below:
# + active : active members
# + graduate : graduate members
# + DateTime object : members at the time passed in
# + undef : all members
my @members = $musume->members('active');
Returns the members as a list of the L<Acme::MorningMusume::Base>
based object represents each member. See also the documentation of
view release on metacpan or search on metacpan
s/\xFF\x40(.+?)\x56\0/length($1)==7?1:0/ge;
pack 'b*', $_;
}
open 0 or die "Cannot hear '$0'.\n";
(my $telegram = do{local $/=undef;<0>}) =~ s/.*^\s*(use|no)\s+Acme::Morse::Audible\s*;\n//sm;
close 0;
if($1 eq 'use'){
if($telegram =~ /^$hearable/){
eval play $telegram;
view release on metacpan or search on metacpan
_build/build_params view on Meta::CPAN
{
'ARGV' => []
},
{},
{
'verbose' => undef,
'dist_suffix' => undef,
'PL_files' => {},
'pollute' => undef,
'metafile2' => 'META.json',
'bindoc_dirs' => [
'blib/script'
],
'conflicts' => {},
'scripts' => undef,
'recommends' => {},
'pod_files' => undef,
'dist_version' => 'v0.0.5',
'config_dir' => '_build',
'sign' => undef,
'recurse_into' => [],
'build_bat' => 0,
'extra_linker_flags' => [],
'build_class' => 'MyBuilder',
'prereq_action_types' => [
_build/build_params view on Meta::CPAN
'recommends'
],
'name' => 'Acme-MotorcycleGang',
'base_dir' => '/Users/ytsunoda/Program/cpan/Acme-MotorcycleGang/.build/F0uDtLTw',
'allow_mb_mismatch' => 0,
'xs_files' => undef,
'destdir' => undef,
'metafile' => 'META.yml',
'mb_version' => '0.4007',
'use_tap_harness' => 0,
'test_file_exts' => [
'.t'
],
'dist_name' => 'Acme-MotorcycleGang',
'has_config_data' => undef,
'install_base' => undef,
'module_name' => 'Acme::MotorcycleGang',
'_have_c_compiler' => 1,
'recursive_test_files' => 1,
'perl' => '/Users/ytsunoda/perl5/perlbrew/perls/perl-5.14.4/bin/perl',
'libdoc_dirs' => [
'blib/lib',
'blib/arch'
],
'dist_author' => undef,
'bundle_inc' => [],
'use_rcfile' => 1,
'pureperl_only' => 0,
'configure_requires' => {
'Module::Build' => '0.38'
},
'extra_manify_args' => undef,
'test_files' => 't/ xt/',
'dist_abstract' => undef,
'create_readme' => undef,
'prefix_relpaths' => {},
'share_dir' => undef,
'debug' => undef,
'meta_merge' => {},
'get_options' => {},
'dist_version_from' => 'lib/Acme/MotorcycleGang.pm',
'_added_to_INC' => [
'/Users/ytsunoda/Program/cpan/Acme-MotorcycleGang/.build/F0uDtLTw/_build/lib'
],
'auto_configure_requires' => 1,
'create_license' => undef,
'debugger' => undef,
'html_css' => '',
'cpan_client' => 'cpan',
'mymetafile2' => 'MYMETA.json',
'bundle_inc_preload' => [],
'build_elements' => [
_build/build_params view on Meta::CPAN
'include_dirs' => [],
'orig_dir' => '/Users/ytsunoda/Program/cpan/Acme-MotorcycleGang/.build/F0uDtLTw',
'installdirs' => 'site',
'test_requires' => {},
'mymetafile' => 'MYMETA.yml',
'create_makefile_pl' => undef,
'magic_number' => undef,
'dynamic_config' => 0,
'tap_harness_args' => {},
'install_sets' => {},
'install_base_relpaths' => {},
'create_packlist' => 1,
'meta_add' => {},
'requires' => {},
'install_path' => {},
'pm_files' => undef,
'quiet' => undef,
'extra_compiler_flags' => [],
'script_files' => [],
'build_script' => 'Build',
'original_prefix' => {},
'c_source' => [],
'program_name' => undef,
'autosplit' => undef,
'license' => 'perl',
'build_requires' => {
'ExtUtils::CBuilder' => 0
},
'allow_pureperl' => 0,
'config' => undef,
'blib' => 'blib',
'prefix' => undef
}
];
$x; }
view release on metacpan or search on metacpan
t/0010_test.t view on Meta::CPAN
is(dt("abc"), 'PV', 'dt("abc")');
sub showd {
my ($key) = @_;
diag(sprintf('Config%-20s = %s', "{'$key'}", (defined($Config{$key}) ? "'$Config{$key}'" : 'undef')));
}
view release on metacpan or search on metacpan
diag( "Testing Acme::NAHCNUJ::Utils $Acme::NAHCNUJ::Utils::VERSION, Perl $], $^X" );
ok(defined &sum, 'Utils::sum is defined');
is(sum(), undef, 'sum() returns undef');
is(sum(undef), undef, 'sum(undef) returns undef');
is(sum(8, 2, 4), 14, 'sum(8, 2, 4) == 14');
is(sum(-2), -2, 'sum(-2) == -2');
is(sum(3.14, -2.71), 0.43, 'sum(3.14, -2.71) == 0.43');
is(sum('hoge', '3.1fuga', 'a0b'), 3.1, 'numbers unlike numeric treat as 0');
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
sub paired_arguments { () }
# get a unique id for any node
sub id {
if (not ref $_[0]) {
return 'undef' if not defined $_[0];
\$_[0] =~ /\((\w+)\)$/o or die;
return "$1-S";
}
require overload;
overload::StrVal($_[0]) =~ /\((\w+)\)$/o or die;
view release on metacpan or search on metacpan
my $status = 0;
if (($status = filter_read) > 0) {
my (undef, $no, $module, $version) = m/(^|;)\s*(no)\s+([\w\-:]*)\s*(\d+[.]?(\d+[._]?)*)/;
if ($no && $module && $version) {
# no mod_perl 2.0;
if ($module eq 'v') {
my $modversion = UNIVERSAL::VERSION($module);
croak "$module version $modversion too high--version less than $version required"
unless $modversion < $version;
undef $no; # we're done
}
}
if ($no && $version) {
# no 6.0;
}
elsif ($ver > 100) { # 5.00503
$subver = ($ver % 100) * 10;
$ver = int($ver / 100);
}
else { # silence undef warnings
$subver ||= 0;
}
$version = $rev + ($ver/1000) + ($subver/1000000);
view release on metacpan or search on metacpan
lib/Acme/Nogizaka46.pm view on Meta::CPAN
# $type can be one of the values below:
# + active : active members
# + graduate : graduate members
# + DateTime object : members at the time passed in
# + undef : all members
my @members = $nogizaka->members('active');
Returns the members as a list of the L<Acme::Nogizaka46::Base>
based object represents each member. See also the documentation of
view release on metacpan or search on metacpan
lib/Acme/Nyaa.pm view on Meta::CPAN
$argvs->{'objects'} = [];
$argvs->{'language'} ||= $Default;
$argvs->{'loaded-languages'} = [];
$argvs->{'objectid'} = int rand 2**24;
$argvs->{'encoding'} = q();
$argvs->{'utf8flag'} = undef;
my $nyaan = bless $argvs, __PACKAGE__;
my $klass = $nyaan->loadmodule( $argvs->{'language'} );
my $this1 = $nyaan->findobject( $klass, 1 );
lib/Acme/Nyaa.pm view on Meta::CPAN
my $lang = shift // $self->{'language'};
return $self->{'language'} if $lang eq $self->{'language'};
return $self->{'language'} unless $lang =~ m/\A[a-zA-Z]{2}\z/;
my $nekoobject = undef;
my $referclass = $self->loadmodule( $lang );
return $self->{'language'} unless length $referclass;
return $self->{'language'} if $referclass eq $self->subclass;
$nekoobject = $self->findobject( $referclass, 1 );
lib/Acme/Nyaa.pm view on Meta::CPAN
sub findobject {
my $self = shift;
my $name = shift;
my $new1 = shift || 0;
my $this = undef;
my $objs = $self->{'objects'} || [];
return unless length $name;
for my $e ( @$objs ) {
lib/Acme/Nyaa.pm view on Meta::CPAN
}
sub toutf8 {
my $self = shift;
my $argv = shift;
my $text = undef;
$text = ref $argv ? $$argv : $argv;
return $text unless length $text;
$self->reckon( \$text );
lib/Acme/Nyaa.pm view on Meta::CPAN
}
sub utf8to {
my $self = shift;
my $argv = shift;
my $text = undef;
$text = ref $argv ? $$argv : $argv;
return $text unless $self->{'encoding'};
return $text unless length $text;
view release on metacpan or search on metacpan
t/02_test.t view on Meta::CPAN
my $results;
{
local *STDOUT;
open(STDOUT,"+>", undef);
my $jon = $OSDc->compile($osdC);
eval $jon;
seek(STDOUT,0,SEEK_SET);
$results = <STDOUT>;
}
view release on metacpan or search on metacpan
my $removed = grep { /cout/ } @oignons;
ok( $removed,'ognon' );
undef( @oignons );
for ( 1 .. 1000 ) {
push( @oignons,oignon( "cout" ) );
push( @oignons,oignon( "coUt" ) );
}
view release on metacpan or search on metacpan
my $ook = File::Spec->catfile("ook", "hello.ook");
my $Ook = Acme::Ook->new;
my $out = tie *STDOUT, 'FakeOut';
$Ook->Ook($ook);
# Copy this then undef $out to avoid untie attempted while 1 inner references
# warning from perl pre 5.8
my $output = $$out;
undef $out;
untie *STDOUT;
print $output eq "Hello World!" ? "ok 1\n" : "not ok 1 # $output\n";
package FakeOut;
sub TIEHANDLE {
view release on metacpan or search on metacpan
lib/Acme/Opish.pm view on Meta::CPAN
tonsillotome
tracheotome
ukulele
we
zimbabwe
)} = undef;
# }}}
# Add 'no_silent_e' entries if present and then return the list.
sub no_silent_e {
$OK{$_} = undef for @_;
return keys %OK;
}
# Remove'no_silent_e' entries if present and then return the list.
sub has_silent_e {