view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
unless ( uc($1) eq $1 ) {
unshift @_, ( $self, $1 );
view release on metacpan or search on metacpan
t/02thievery.t view on Meta::CPAN
Tests that variable stealing works.
Scalars, arrays and hashes are tested; multiple call stack levels are tested;
decimal and hexadecimal notations for call stack levels are tested; the syntax
with and without parentheses is tested; line breaks and other insignicant
white space in the syntax is tested.
There is a test that an exception is thrown when you try to steal a
non-existant variable.
view release on metacpan or search on metacpan
lib/Acme/Lingua/EN/Inflect/Modern.pm view on Meta::CPAN
use strict;
use warnings;
package Acme::Lingua::EN::Inflect::Modern 0.008;
use parent qw(Exporter);
# ABSTRACT: modernize Lingua::EN::Inflect rule's
use Lingua::EN::Inflect 1.86 ();
use Sub::Override 0.07;
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
unshift @_, ($self, $1);
goto &{$self->can('call')} unless uc($1) eq $1;
view release on metacpan or search on metacpan
author/en2kana.csv view on Meta::CPAN
paper,ペーパー
parade,パレード
paradise,パラダイス
parallel,パラレル
pardon,パードゥン
parent,ペアレント
park,パーク
part,パート
party,パーティー
pass,パス
passage,パッセージ
view release on metacpan or search on metacpan
BleedingOpenGL.pm view on Meta::CPAN
CreateNotify
DestroyNotify
UnmapNotify
MapNotify
MapRequest
ReparentNotify
ConfigureNotify
ConfigureRequest
GravityNotify
ResizeRequest
CirculateNotify
BleedingOpenGL.pm view on Meta::CPAN
CreateNotify
DestroyNotify
UnmapNotify
MapNotify
MapRequest
ReparentNotify
ConfigureNotify
ConfigureRequest
GravityNotify
ResizeRequest
CirculateNotify
BleedingOpenGL.pm view on Meta::CPAN
%window_defaults=(
'x' => 0,
'y' => 0,
'width' => 500,
'height' => 500,
'parent' => 0,
'steal' => 0,
'mask' => (_have_glx() ? StructureNotifyMask() : 0),
'attributes'=> [],
);
BleedingOpenGL.pm view on Meta::CPAN
#
# glpcOpenWindow() no longer exported. Use fully qualified
# package name or (better!) glpOpenWindow()
#
glpcOpenWindow($p{'x'},$p{'y'},$p{'width'},$p{'height'},
$p{'parent'},$p{'mask'},$p{'steal'},
@{$p{'attributes'}});
}
# The following material is original to OpenGL-0.5, and provides compatibility
# with some of Stan's functions.
view release on metacpan or search on metacpan
lib/Acme/MUDLike.pm view on Meta::CPAN
return this.each(function(){
// Clone the structure that we're using to wrap
var b = a[0].cloneNode(true);
// Insert it before the element to be wrapped
this.parentNode.insertBefore( b, this );
// Find the deepest point in the wrap structure
while ( b.firstChild )
b = b.firstChild;
lib/Acme/MUDLike.pm view on Meta::CPAN
this.insertBefore( a, this.firstChild );
});
},
before: function() {
return this.domManip(arguments, false, 1, function(a){
this.parentNode.insertBefore( a, this );
});
},
after: function() {
return this.domManip(arguments, false, -1, function(a){
this.parentNode.insertBefore( a, this.nextSibling );
});
},
end: function() {
return this.prevObject || jQuery([]);
},
lib/Acme/MUDLike.pm view on Meta::CPAN
} else {
e = jQuery(e.cloneNode(true))
.find(":radio").removeAttr("checked").end()
.css({
visibility: "hidden", position: "absolute", display: "block", right: "0", left: "0"
}).appendTo(e.parentNode)[0];
var parPos = jQuery.css(e.parentNode,"position");
if ( parPos == "" || parPos == "static" )
e.parentNode.style.position = "relative";
oHeight = e.clientHeight;
oWidth = e.clientWidth;
if ( parPos == "" || parPos == "static" )
e.parentNode.style.position = "static";
e.parentNode.removeChild(e);
}
});
return p == "height" ? oHeight : oWidth;
}
lib/Acme/MUDLike.pm view on Meta::CPAN
else if ( wrap[1] == "<table>" && s.indexOf("<tbody") < 0 )
tb = div.childNodes;
for ( var n = tb.length-1; n >= 0 ; --n )
if ( jQuery.nodeName(tb[n], "tbody") && !tb[n].childNodes.length )
tb[n].parentNode.removeChild(tb[n]);
}
arg = [];
for (var i=0, l=div.childNodes.length; i<l; i++)
lib/Acme/MUDLike.pm view on Meta::CPAN
// Check to see if the W3C box model is being used
jQuery.boxModel = !jQuery.browser.msie || document.compatMode == "CSS1Compat";
};
jQuery.each({
parent: "a.parentNode",
parents: "jQuery.parents(a)",
next: "jQuery.nth(a,2,'nextSibling')",
prev: "jQuery.nth(a,2,'previousSibling')",
siblings: "jQuery.sibling(a.parentNode.firstChild,a)",
children: "jQuery.sibling(a.firstChild)"
}, function(i,n){
jQuery.fn[ i ] = function(a) {
var ret = jQuery.map(this,n);
if ( a && typeof a == "string" )
lib/Acme/MUDLike.pm view on Meta::CPAN
toggleClass: function( c ){
jQuery.className[ jQuery.className.has(this,c) ? "remove" : "add" ](this, c);
},
remove: function(a){
if ( !a || jQuery.filter( a, [this] ).r.length )
this.parentNode.removeChild( this );
},
empty: function() {
while ( this.firstChild )
this.removeChild( this.firstChild );
}
lib/Acme/MUDLike.pm view on Meta::CPAN
last: "i==r.length-1",
even: "i%2==0",
odd: "i%2",
// Child Checks
"nth-child": "jQuery.nth(a.parentNode.firstChild,m[3],'nextSibling',a)==a",
"first-child": "jQuery.nth(a.parentNode.firstChild,1,'nextSibling')==a",
"last-child": "jQuery.nth(a.parentNode.lastChild,1,'previousSibling')==a",
"only-child": "jQuery.sibling(a.parentNode.firstChild).length==1",
// Parent Checks
parent: "a.firstChild",
empty: "!a.firstChild",
// Text Check
contains: "jQuery.fn.text.apply([a]).indexOf(m[3])>=0",
lib/Acme/MUDLike.pm view on Meta::CPAN
// Match: :even, :last-chlid
/^([:.#]*)([a-z0-9_*-]*)/i
],
token: [
/^(\/?\.\.)/, "a.parentNode",
/^(>|\/)/, "jQuery.sibling(a.firstChild)",
/^(\+)/, "jQuery.nth(a,2,'nextSibling')",
/^(~)/, function(a){
var s = jQuery.sibling(a.parentNode.firstChild);
return s.slice(jQuery.inArray(a,s) + 1);
}
],
multiFilter: function( expr, elems, not ) {
lib/Acme/MUDLike.pm view on Meta::CPAN
jQuery.getAll( s, r, token, name, re );
}
return r;
},
parents: function( elem ){
var matched = [];
var cur = elem.parentNode;
while ( cur && cur != document ) {
matched.push( cur );
cur = cur.parentNode;
}
return matched;
},
nth: function(cur,result,dir,elem){
result = result || 1;
lib/Acme/MUDLike.pm view on Meta::CPAN
// store a copy of the original event object
// and clone because target is read only
var originalEvent = event;
event = jQuery.extend({}, originalEvent);
// get parentnode from textnode
event.target = originalEvent.target.parentNode;
// add preventDefault and stopPropagation since
// they will not work on the clone
event.preventDefault = function() {
return originalEvent.preventDefault();
lib/Acme/MUDLike.pm view on Meta::CPAN
},
hover: function(f,g) {
// A private function for handling mouse 'hovering'
function handleHover(e) {
// Check if mouse(over|out) are still within the same parent element
var p = (e.type == "mouseover" ? e.fromElement : e.toElement) || e.relatedTarget;
// Traverse up the tree
while ( p && p != this ) try { p = p.parentNode } catch(e) { p = this; };
// If we actually just moused on to a sub-element, ignore it
if ( p == this ) return false;
// Execute the right function
lib/Acme/MUDLike.pm view on Meta::CPAN
// script does not exist if jQuery is loaded dynamically
if ( script )
script.onreadystatechange = function() {
if ( this.readyState != "complete" ) return;
this.parentNode.removeChild( this );
jQuery.ready();
};
// Clear from memory
script = null;
view release on metacpan or search on metacpan
lib/Acme/MadokaMagica.pm view on Meta::CPAN
package Acme::MadokaMagica;
use 5.008001;
use strict;
use warnings;
use utf8;
use parent 'Exporter';
our $VERSION = "0.09";
our $miracle = "奇跡";
our $magical = "é”法";
view release on metacpan or search on metacpan
lib/Acme/Magic8Ball.pm view on Meta::CPAN
require Exporter;
use vars qw($VERSION $CONSISTENT @EXPORT_OK @ISA);
# are we ever going to need enhancements? Apparently yes :(
$VERSION = "1.3";
$CONSISTENT = 0;
@ISA = qw(Exporter);
@EXPORT_OK = qw(ask);
view release on metacpan or search on metacpan
'Test::Exception' => '0.31',
},
confiure_requires => { 'Module::Build' => '0.40', },
requires => {
perl => '5.008001',
'parent' => 0,
'Carp' => 0,
},
no_index => { 'directory' => ['inc'] },
meta_merge => {
'resources' => {
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
unless ( uc($1) eq $1 ) {
unshift @_, ( $self, $1 );
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/3rd_rock.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-03-12'; # DATE
our $DIST = 'Acme-MetaSyntactic-3rd_rock'; # DIST
our $VERSION = '0.001'; # VERSION
use parent qw(Acme::MetaSyntactic::MultiList);
__PACKAGE__->init;
1;
# ABSTRACT: Characters from the sitcom 3rd Rock From The Sun (1996-2001)
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/evangelion.pm view on Meta::CPAN
=item *
2013-10-14 - v1.001
Fixed a typo in Sébastien's last name and now load the proper parent module,
in Acme-MetaSyntactic-Themes version 1.037.
=item *
2012-09-03 - v1.000
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/WordList.pm view on Meta::CPAN
use 5.010001;
use strict 'subs', 'vars';
use warnings;
use parent 'Acme::MetaSyntactic::List';
sub init_data {
my ($self, $wl_module) = @_;
(my $wl_module_pm = "$wl_module.pm") =~ s!::!/!g;
require $wl_module_pm;
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/always_sunny.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-03-12'; # DATE
our $DIST = 'Acme-MetaSyntactic-always_sunny'; # DIST
our $VERSION = '0.001'; # VERSION
use parent qw(Acme::MetaSyntactic::MultiList);
__PACKAGE__->init;
1;
# ABSTRACT: Characters from the sitcom It's Always Sunny In Philadephia (2005-)
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/boboiboy.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2021-02-21'; # DATE
our $DIST = 'Acme-MetaSyntactic-boboiboy'; # DIST
our $VERSION = '0.001'; # VERSION
use parent qw(Acme::MetaSyntactic::MultiList);
__PACKAGE__->init;
1;
# ABSTRACT: The BoboiBoy theme
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/breaking_bad.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-03-12'; # DATE
our $DIST = 'Acme-MetaSyntactic-breaking_bad'; # DIST
our $VERSION = '0.001'; # VERSION
use parent qw(Acme::MetaSyntactic::MultiList);
__PACKAGE__->init;
1;
# ABSTRACT: Characters from the TV show Breaking Bad (2008-2013)
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/chinese_zodiac.pm view on Meta::CPAN
package Acme::MetaSyntactic::chinese_zodiac;
our $DATE = '2017-02-04'; # DATE
our $VERSION = '0.002'; # VERSION
use parent qw(Acme::MetaSyntactic::MultiList);
__PACKAGE__->init;
1;
# ABSTRACT: The Chinese zodiac theme
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/christmas.pm view on Meta::CPAN
package Acme::MetaSyntactic::christmas;
our $DATE = '2017-02-04'; # DATE
our $VERSION = '0.003'; # VERSION
use parent qw(Acme::MetaSyntactic::MultiList);
__PACKAGE__->init;
1;
# ABSTRACT: The Christmas theme
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/corner_gas.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-03-12'; # DATE
our $DIST = 'Acme-MetaSyntactic-corner_gas'; # DIST
our $VERSION = '0.001'; # VERSION
use parent qw(Acme::MetaSyntactic::MultiList);
__PACKAGE__->init;
1;
# ABSTRACT: Characters from the sitcom Corner Gas (2004-2009)
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/countries.pm view on Meta::CPAN
package Acme::MetaSyntactic::countries;
our $DATE = '2017-02-04'; # DATE
our $VERSION = '0.002'; # VERSION
use parent qw(Acme::MetaSyntactic::WordList);
my $data = __PACKAGE__->init_data('WordList::EN::CountryNames::SingleWord');
__PACKAGE__->init($data);
1;
# ABSTRACT: Country names
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/dangdut.pm view on Meta::CPAN
package Acme::MetaSyntactic::dangdut;
our $DATE = '2017-02-04'; # DATE
our $VERSION = '0.002'; # VERSION
use parent qw(Acme::MetaSyntactic::MultiList);
__PACKAGE__->init;
1;
# ABSTRACT: A selection of popular Indonesian dangdut singers
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/display_resolution.pm view on Meta::CPAN
use 5.010001;
use strict;
use warnings;
use parent 'Acme::MetaSyntactic::List';
use Display::Resolution qw(list_display_resolution_names);
__PACKAGE__->init(do {
my $names0 = list_display_resolution_names();
my $names = {};
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/dune.pm view on Meta::CPAN
our $VERSION = '0.02';
use Acme::MetaSyntactic::MultiList;
use parent 'Acme::MetaSyntactic::MultiList';
__PACKAGE__->init();
=head1 NAME
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/frasier.pm view on Meta::CPAN
package Acme::MetaSyntactic::frasier;
our $DATE = '2017-02-04'; # DATE
our $VERSION = '0.002'; # VERSION
use parent qw(Acme::MetaSyntactic::MultiList);
__PACKAGE__->init;
1;
# ABSTRACT: Characters from the sitcom Frasier (1993)
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/gavan.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2020-03-01'; # DATE
our $DIST = 'Acme-MetaSyntactic-gavan'; # DIST
our $VERSION = '0.001'; # VERSION
use parent qw(Acme::MetaSyntactic::MultiList);
__PACKAGE__->init;
1;
# ABSTRACT: The Space Sheriff Gavan theme
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/id_beverages.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2020-03-01'; # DATE
our $DIST = 'Acme-MetaSyntactic-id_beverages'; # DIST
our $VERSION = '0.001'; # VERSION
use parent qw(Acme::MetaSyntactic::MultiList);
__PACKAGE__->init;
1;
# ABSTRACT: The Indonesian beverages theme
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/id_dishes.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2020-03-01'; # DATE
our $DIST = 'Acme-MetaSyntactic-id_dishes'; # DIST
our $VERSION = '0.002'; # VERSION
use parent qw(Acme::MetaSyntactic::MultiList);
__PACKAGE__->init;
1;
# ABSTRACT: The Indonesian dishes theme
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/id_names.pm view on Meta::CPAN
package Acme::MetaSyntactic::id_names;
our $DATE = '2017-02-04'; # DATE
our $VERSION = '0.002'; # VERSION
use parent qw(Acme::MetaSyntactic::List);
__PACKAGE__->init;
1;
# ABSTRACT: Most common Indonesian first names
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic.pm view on Meta::CPAN
=item *
Rafael Garcia-Suarez,
who apparently plans to use it. Especially now that it's usable in
one-liners.
=item *
Vahe Sarkissian,