Result:
found more than 539 distributions - search limited to the first 2001 files matching your query
( run in 1.428 )
Acme-Floral
view release on metacpan or search on metacpan
lib/Acme/Floral.pm view on Meta::CPAN
Washington_Monkeyflower, Thimbleberry, and more arranged beautifully by our
florists in our precious vase, available only from
L<http:E<sol>E<sol>www.cpan.org>. Your thoughtfulness lives on with our
memorable keepsake vase of fine ivory china, decorated with a rose pattern,
trimmed in 24K gold and not accompanied by a certificate of authenticity.
Available globally. Actual floral choices may vary.
=head2 EXPORT
Shipping is available globally upon request. See
L<http:E<sol>E<sol>www.cpan.org> for more details.
=head1 AUTHOR
Josh Jore E<lt>jjore@cpan.orgE<gt>
Acme-Fork-Lazy
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
@exts = $admin->load_all_extensions;
}
my %seen;
foreach my $obj ( @exts ) {
while (my ($method, $glob) = each %{ref($obj) . '::'}) {
next unless $obj->can($method);
next if $method =~ /^_/;
next if $method eq uc($method);
$seen{$method}++;
}
Acme-Geo-Whitwell-Name
view release on metacpan or search on metacpan
placenames.
The system is set up to use latitudes and longitudes precise to two
decimal places; using standard maximum measurements for latitude and
longitude[2], this allows a grid of approximately 800 feet by 1300 feet
to be overlaid on the globe. Most towns and villages are at least this big,
so 2-decimal precision is sufficient to give each one a unique name.
Allowing for the utter lunacy of the whole scheme, it has a certain
obsessive charm.
Acme-Globule
view release on metacpan or search on metacpan
lib/Acme/Globule.pm view on Meta::CPAN
$Acme::Globule::DIST = 'Acme-Globule';
}
BEGIN {
$Acme::Globule::VERSION = '0.004';
}
# ABSTRACT: Extensible package-local way to override glob()
use warnings;
use strict;
# a quick dance to get at the glob()/<> implementation that we replace with
# a wrapper
use File::Glob qw( csh_glob );
my $csh_glob = \&csh_glob;
use Module::Load;
# This is a hash mapping packages that use us to the Globule plugins they
# requested.
lib/Acme/Globule.pm view on Meta::CPAN
}
$clients{$importer} = \@plugins;
}
sub _new_csh_glob {
my($pattern) = @_;
my($caller) = caller; # contains package of caller, or (eval) etc, but
# will match an entry in %clients for any package
# that imported us
if (my $client = $clients{$caller}) {
# The caller imported us, so we work through the plugins they requested
foreach my $plugin (@$client) {
# Try the pattern against each plugin in turn, until one returns a
# true value. This is assumed to be an arrayref that contains the
# result of the glob
my $result = $plugins{$plugin}->globule($pattern);
return @$result if $result;
}
}
# Since no plugins matched (or the caller didn't import us), we fall
# through to the original glob function
goto &$csh_glob;
}
no warnings; # we don't want "subroutine redefined" diagnostics
*File::Glob::csh_glob = \&_new_csh_glob;
*CORE::GLOBAL::glob = \&File::Glob::csh_glob;
1;
1;
lib/Acme/Globule.pm view on Meta::CPAN
__END__
=pod
=head1 NAME
Acme::Globule - Extensible package-local way to override glob()
=head1 VERSION
version 0.004
=head1 SYNOPSIS
# a simple plugin
package Acme::Globule::Ping;
sub globule {
my($self, $pattern) = @_;
# somebody did <ping> and so we want to return ('pong')
return [ "pong" ] if $pattern eq 'ping';
# they didn't ping, so pass
return;
lib/Acme/Globule.pm view on Meta::CPAN
# prints the location of your home directory
print <~>;
=head1 DESCRIPTION
This package extends glob (and thus <>) to return custom results. It has a
plugin mechanism and you define which plugins you wish to use on the import
line. Now when you call glob(), these plugins will be tried left-to-right
until one claims it, with a fall-through to the standard glob() function.
Each of your packages may use different plugins, and packages that do not
import Acme::Globule will get standard glob() behaviour.
=head1 Creating a plugin
To create a plugin, create a module Acme::Globule::* and provide a globule()
method. The globule method should return an array reference containing the
matches, or nothing if it wishes to decline and let the next plugin try it.
=head1 BUGS
Any code that uses this module is perverse and therefore contains at least
one bug.
This module globally hooks both File::Glob::csh_glob CORE::GLOBAL::glob, and
so using this module anywhere in a program will cause all uses of glob() to
suffer a slight performance hit even in other modules which do not use it.
glob() within an eval() will probably not do what you expect.
=head1 SEE ALSO
Acme::Globule::*, the plugins.
Acme-Globus
view release on metacpan or search on metacpan
lib/Acme/Globus.pm view on Meta::CPAN
=head1 DESCRIPTION
Globus is a tool that allows the sharing of scientific data between
researchers and institutions. Globus enables you to transfer your
data using just a web browser, or using their SSH interface at
cli.globusonline.org.
This is a client library for the Globus CLI.
For detailed documentation of the API,
see L<http://dev.globus.org/cli/reference>.
=head1 CAVEATS
This code is a work in progress, focusing on my needs at the moment
rather than covering all the capabilities of the Globus CLI. It is
lib/Acme/Globus.pm view on Meta::CPAN
sub scp {
my ( $self, $from_path, $to_path, $recurse ) = @_ ;
$recurse = $recurse ? '-r' : '' ;
my $command = qq{scp $recurse $from_path $to_path} ;
my $result
= _globus_action( $command, $self->{username}, $self->{key_path} ) ;
return $result ;
}
sub transfer {
my ( $self, $from_path, $to_path, $recurse ) = @_ ;
$recurse = $recurse ? '-r' : '' ;
my $command = qq{transfer $from_path $to_path} ;
my $result
= _globus_action( $command, $self->{username}, $self->{key_path} ) ;
return $result ;
}
=head2 FILE MANAGEMENT
lib/Acme/Globus.pm view on Meta::CPAN
sub ls {
my ( $self, $file_path ) = @_ ;
my $command = qq{ls $file_path} ;
my $result
= _globus_action( $command, $self->{username}, $self->{key_path} ) ;
my @result = split m{\r?\n}, $result ;
return wantarray ? @result : \@result ;
}
sub mkdir { }
lib/Acme/Globus.pm view on Meta::CPAN
sub identity_details {
my ( $self, $identity_id ) = @_ ;
my $command = qq{identity-details $identity_id } ;
my $result
= _globus_action( $command, $self->{username}, $self->{key_path} ) ;
return {} unless $result =~ m{\w} ;
my $obj = decode_json $result ;
return wantarray ? %$obj : $obj ;
}
lib/Acme/Globus.pm view on Meta::CPAN
$readwrite = 'r' unless $rw ;
my $command
= qq{acl-add $endpoint --identityusername=${email} --perm $readwrite }
;
my $result
= _globus_action( $command, $self->{username}, $self->{key_path} ) ;
my ($id) = reverse grep {m{\w}} split m{\s}, $result ;
return $id ;
}
sub acl_list {
my ( $self, $endpoint ) = @_ ;
my $command = qq{acl-list $endpoint} ;
my $result
= _globus_action( $command, $self->{username}, $self->{key_path} ) ;
my $slist = decode_json $result ;
my @list = grep { $_->{permissions} ne 'rw' } @$slist ;
return wantarray ? @list : \@list ;
}
sub acl_remove {
my ( $self, $endpoint_uuid, $share_uuid ) = @_ ;
my $command = qq{acl-remove $endpoint_uuid --id $share_uuid} ;
my $result
= _globus_action( $command, $self->{username}, $self->{key_path} ) ;
return $result ;
}
=head3 B<endpoint_add_shared>
lib/Acme/Globus.pm view on Meta::CPAN
q{endpoint-add},
q{--sharing}, "$sharer_endpoint$path",
q{-n}, $endpoint,
;
my $result
= _globus_action( $command, $self->{username}, $self->{key_path} ) ;
return $result ;
}
# sub endpoint_list {
# my ( $self, $endpoint ) = @_ ;
lib/Acme/Globus.pm view on Meta::CPAN
# }
# else {
# $command = qq{endpoint-list} ;
# }
# my $result
# = _globus_action( $command, $self->{username}, $self->{key_path} ) ;
# my @result = map { ( split m{\s}, $_ )[0] } split "\n", $result ;
# return wantarray ? @result : \@result ;
# }
#lists all my endpoint
sub endpoint_list {
my ($self) = @_ ;
my $command = 'endpoint-search --scope=my-endpoints' ;
my $result
= _globus_action( $command, $self->{username}, $self->{key_path} ) ;
my @result = map { s{\s}{}g ; $_ }
map { ( reverse split m{:} )[0] }
grep {m{Legacy}}
split m{\n}, $result ;
return wantarray ? @result : \@result ;
lib/Acme/Globus.pm view on Meta::CPAN
sub endpoint_search {
my ( $self, $search ) = @_ ;
return {} unless $search ;
my $command = qq{endpoint-search $search --scope=my-endpoints} ;
my $result
= _globus_action( $command, $self->{username}, $self->{key_path} ) ;
my %result = map {
chomp ;
my ( $k, $v ) = split m{\s*:\s}, $_ ;
$k => $v
}
lib/Acme/Globus.pm view on Meta::CPAN
sub list_my_endpoints {
my ($self) = @_ ;
my $command = 'endpoint-search --scope=my-endpoints' ;
my $result
= _globus_action( $command, $self->{username}, $self->{key_path} ) ;
my %result = map {
my $hash ;
%$hash = map {
my ( $k, $v ) = split m{\s*:\s*} ;
$k =~ s{\s+}{_}gmx ;
lib/Acme/Globus.pm view on Meta::CPAN
sub search_my_endpoints {
my ( $self, $search ) = @_ ;
my %result ;
my $command = qq{endpoint-search $search --scope=my-endpoints} ;
my $result
= _globus_action( $command, $self->{username}, $self->{key_path} ) ;
%result = map {
my $hash ;
%$hash = map {
my ( $k, $v ) = split m{\s*:\s*} ;
$k =~ s{\s+}{_}gmx ;
lib/Acme/Globus.pm view on Meta::CPAN
sub endpoint_remove {
my ( $self, $endpoint ) = @_ ;
my $command = qq{endpoint-remove $endpoint} ;
my $result
= _globus_action( $command, $self->{username}, $self->{key_path} ) ;
return $result ;
}
# Sucks. Use endpoint_search instead
sub endpoint_details {
my ( $self, $endpoint ) = @_ ;
my $command = qq{endpoint-details $endpoint} ;
my $result
= _globus_action( $command, $self->{username}, $self->{key_path} ) ;
my %result = map {
chomp ;
my ( $key, $value ) = split m{\s*:\s*}, $_ ;
$key => $value
lib/Acme/Globus.pm view on Meta::CPAN
sub profile {
my ($self) = @_ ;
my $command = qq{profile} ;
my $result
= _globus_action( $command, $self->{username}, $self->{key_path} ) ;
my %output
= map { my ( $k, $v ) = split m{:\s?}, $_ ; $k => $v } split m{\n},
$result ;
return wantarray ? %output : \%output ;
}
lib/Acme/Globus.pm view on Meta::CPAN
sub help { }
sub history { }
sub man { }
sub versions { }
sub _globus_action {
my ( $command, $user, $key_path ) = @_ ;
my $host = '@cli.globusonline.org' ;
my $ssh = Net::OpenSSH->new(
$user . $host,
key_path => $key_path,
async => 0,
Acme-Goto-Line
view release on metacpan or search on metacpan
You cannot currently goto a place inside a subroutine. Adn you cannot currently goto out of a subroutine running in anything that is used or required. This is because perl removes all that information for us. The goblins are working on a way to fix t...
=head2 EXPORT
It overrides your global goto!
=head1 SEE ALSO
Acme-Greeting
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
@exts = $self->{admin}->load_all_extensions;
}
my %seen;
foreach my $obj ( @exts ) {
while (my ($method, $glob) = each %{ref($obj) . '::'}) {
next unless $obj->can($method);
next if $method =~ /^_/;
next if $method eq uc($method);
$seen{$method}++;
}
Acme-Hello
view release on metacpan or search on metacpan
lib/Acme/Hello/I18N.pm view on Meta::CPAN
require File::Basename;
my ($name, $path) = File::Basename::fileparse(__FILE__, '.pm');
my @languages;
foreach my $lexicon ( File::Glob::bsd_glob( File::Spec->catfile($path, $name, '*.po')) ) {
File::Basename::basename($lexicon) =~ /^(\w+).po$/ or next;
push @languages, $1;
};
Locale::Maketext::Lexicon->import( {
Acme-HidamariSketch
view release on metacpan or search on metacpan
name => 'Acme-HidamariSketch',
module_name => 'Acme::HidamariSketch',
allow_pureperl => 0,
script_files => [glob('script/*'), glob('bin/*')],
c_source => [qw()],
PL_files => {},
test_files => ((-d '.git' || $ENV{RELEASE_TESTING}) && -d 'xt') ? 't/ xt/' : 't/',
recursive_test_files => 1,
Acme-Hidek
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
@exts = $self->{admin}->load_all_extensions;
}
my %seen;
foreach my $obj ( @exts ) {
while (my ($method, $glob) = each %{ref($obj) . '::'}) {
next unless $obj->can($method);
next if $method =~ /^_/;
next if $method eq uc($method);
$seen{$method}++;
}
Acme-Holy
view release on metacpan or search on metacpan
my $number = 1; $number = bless \$number;
my $string = '2'; $string = bless \$string;
my @array = (); my $array = bless \@array;
my %hash = (); my $hash = bless \%hash;
my $code = sub {}; $code = bless $code;
my $glob = \*STDOUT; $glob = bless $glob;
ok( holy $number eq __PACKAGE__ , "holy() ok with numerical object" );
ok( holy $string eq __PACKAGE__ , "holy() ok with string object" );
ok( holy $array eq __PACKAGE__ , "holy() ok with array object" );
ok( holy $hash eq __PACKAGE__ , "holy() ok with hash object" );
ok( holy $code eq __PACKAGE__ , "holy() ok with code object" );
ok( holy $glob eq __PACKAGE__ , "holy() ok with glob object" );
#
# make sure holy returns undef for all unblessed references
#
$number = \1;
$string = \'2';
$array = [];
$hash = {};
$code = sub {};
$glob = \*STDIN;
ok( ! defined holy $number , "holy() not defined with numerical reference" );
ok( ! defined holy $string , "holy() not defined with string reference" );
ok( ! defined holy $array , "holy() not defined with array reference" );
ok( ! defined holy $hash , "holy() not defined with hash reference" );
ok( ! defined holy $code , "holy() not defined with code reference" );
ok( ! defined holy $glob , "holy() not defined with glob reference" );
#
# make sure holy returns undef for all non-references
#
Acme-Hyde
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if (
defined( my $cur = _version_check( _load($mod), $arg ||= 0 ) ) )
{
print "loaded. ($cur" . ( $arg ? " >= $arg" : '' ) . ")\n";
push @Existing, $mod => $arg;
$DisabledTests{$_} = 1 for map { glob($_) } @skiptests;
}
else {
print "missing." . ( $arg ? " (would need $arg)" : '' ) . "\n";
push @required, $mod => $arg;
}
inc/Module/AutoInstall.pm view on Meta::CPAN
) =~ /^[Yy]/
)
)
{
push( @Missing, @required );
$DisabledTests{$_} = 1 for map { glob($_) } @skiptests;
}
elsif ( !$SkipInstall
and $default
and $mandatory
and
_prompt( qq{==> The module(s) are mandatory! Really skip?}, 'n', )
=~ /^[Nn]/ )
{
push( @Missing, @required );
$DisabledTests{$_} = 1 for map { glob($_) } @skiptests;
}
else {
$DisabledTests{$_} = 1 for map { glob($_) } @tests;
}
}
$UnderCPAN = _check_lock(); # check for $UnderCPAN
inc/Module/AutoInstall.pm view on Meta::CPAN
}
$args{test}{TESTS} ||= 't/*.t';
$args{test}{TESTS} = join( ' ',
grep { !exists( $DisabledTests{$_} ) }
map { glob($_) } split( /\s+/, $args{test}{TESTS} ) );
my $missing = join( ',', @Missing );
my $config =
join( ',', UNIVERSAL::isa( $Config, 'HASH' ) ? %{$Config} : @{$Config} )
if $Config;
Acme-ID-CompanyName
view release on metacpan or search on metacpan
lib/Acme/ID/CompanyName.pm view on Meta::CPAN
gemerlap
gemilang
gemintang
gempita
gilang
global
gloria
graha
griya
guna
gunung
Acme-Innuendo
view release on metacpan or search on metacpan
lib/Acme/Innuendo.pm view on Meta::CPAN
=item wink_wink
$ref = wink_wink( $namespace, $symbol );
Returns the glob for the symbol in the given namespace, if it exists.
=item nudge_nudge
nudge_nudge( $namespace, $symbol, $ref );
Acme-InputRecordSeparatorIsRegexp
view release on metacpan or search on metacpan
lib/Acme/InputRecordSeparatorIsRegexp.pm view on Meta::CPAN
no strict 'refs'; # or else bareword file handles will break
my (undef,$mode,$expr,@list) = @_;
if (!defined $_[0]) {
$_[0] = Symbol::gensym;
}
my $glob = $_[0];
if (!ref($glob) && $glob !~ /::/) {
$glob = join("::",caller(0) || "", $glob);
}
if ($mode && index($mode,":irs(") >= 0) {
my $irs = _extract_irs($mode);
my $z = @list ? CORE::open *$glob, $mode, $expr, @list
: CORE::open *$glob, $mode, $expr;
tie *$glob, __PACKAGE__, *$glob, $irs;
return $z;
}
if (@list) {
return CORE::open(*$glob,$mode,$expr,@list);
} elsif ($expr) {
return CORE::open(*$glob,$mode,$expr);
} elsif ($mode) {
return CORE::open(*$glob,$mode);
} else {
return CORE::open(*$glob);
}
}
sub binmode (*;$) {
my ($glob,$mode) = @_;
$mode ||= ":raw";
if (index($mode,":irs(") >= 0) {
my $irs = _extract_irs($mode);
input_record_separator($glob,$irs);
return 1 unless $mode;
}
return CORE::binmode($glob,$mode);
}
sub _compile_rs {
my $self = shift;
my $rs = $self->{rs};
Acme-JWT
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
@exts = $self->{admin}->load_all_extensions;
}
my %seen;
foreach my $obj ( @exts ) {
while (my ($method, $glob) = each %{ref($obj) . '::'}) {
next unless $obj->can($method);
next if $method =~ /^_/;
next if $method eq uc($method);
$seen{$method}++;
}
Acme-Kensiro
view release on metacpan or search on metacpan
name => 'Acme-Kensiro',
module_name => 'Acme::Kensiro',
allow_pureperl => 0,
script_files => [glob('script/*'), glob('bin/*')],
c_source => [qw()],
PL_files => {},
test_files => ((-d '.git' || $ENV{RELEASE_TESTING}) && -d 'xt') ? 't/ xt/' : 't/',
recursive_test_files => 1,
Acme-LAUTER-DEUTSCHER
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
}
else {
print "Skipping network tests.\n";
}
$config{test} = { TESTS => join ' ', map {glob} @patterns };
WriteMakefile(%config);
Acme-Lambda-Expr
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
@exts = $admin->load_all_extensions;
}
my %seen;
foreach my $obj ( @exts ) {
while (my ($method, $glob) = each %{ref($obj) . '::'}) {
next unless $obj->can($method);
next if $method =~ /^_/;
next if $method eq uc($method);
$seen{$method}++;
}
Acme-Lambda
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
@exts = $admin->load_all_extensions;
}
my %seen;
foreach my $obj ( @exts ) {
while (my ($method, $glob) = each %{ref($obj) . '::'}) {
next unless $obj->can($method);
next if $method =~ /^_/;
next if $method eq uc($method);
$seen{$method}++;
}
Acme-Lexical-Thief
view release on metacpan or search on metacpan
lib/Acme/Lexical/Thief.pm view on Meta::CPAN
else
{
($extracted, $$ref) = ($$ref =~ /^([^;]+)(;.*)$/s)
or croak "usage: $KEYWORD VARIABLES;";
}
(my $globs = $extracted) =~ s/[\$\%\@]/*/gs;
$$ref = "our($extracted); local($globs) = $CLASS\::_callback(q($extracted), $depth);$$ref";
}
}
sub unimport
{
Acme-Locals
view release on metacpan or search on metacpan
examples/locals-python.pm view on Meta::CPAN
my $name = "George Constanza";
sayx "x: %(x)d y: %(y)d name: %(name)s", locals();
}
sub moo { # Using global variables
our $a = 13.54;
our $b = "world";
sayx "%(a)f: Hello %(b)s", globals();
}
hi();
moo();
Acme-LookOfDisapproval
view release on metacpan or search on metacpan
"add_tarball_name" : 0,
"finders" : [
":ExecFiles",
":InstallModules"
],
"global" : 1,
"skip_version_provider" : 0
},
"Dist::Zilla::Plugin::RewriteVersion::Transitional" : {}
},
"name" : "@Author::ETHER/@Git::VersionManager/RewriteVersion::Transitional",
"config" : {
"Dist::Zilla::Plugin::BumpVersionAfterRelease" : {
"finders" : [
":InstallModules"
],
"global" : 1,
"munge_makefile_pl" : 1
},
"Dist::Zilla::Plugin::BumpVersionAfterRelease::Transitional" : {}
},
"name" : "@Author::ETHER/@Git::VersionManager/BumpVersionAfterRelease::Transitional",
Acme-MITHALDU-BleedingOpenGL
view release on metacpan or search on metacpan
eval(GLUT_ACTIVE_SHIFT) => "SHIFT",
eval(GLUT_ACTIVE_CTRL) => "CTRL",
eval(GLUT_ACTIVE_ALT) => "ALT"
};
# Some global variables.
my $useMipMap = 1;
my $hasFBO = 0;
my $hasVBO = 0;
my $hasFragProg = 0;
my $hasImagePointer = 0;
my $VertexProgID;
my $FragProgID;
my $FBO_rendered = 0;
my $Shader;
# Object and scene global variables.
my $Teapot_Rot = 0.0;
# Cube position and rotation speed variables.
my $X_Rot = 0.9;
my $Y_Rot = 0.0;
Acme-MITHALDU-XSGrabBag
view release on metacpan or search on metacpan
inc/Inline.pm view on Meta::CPAN
if (uc $control eq uc 'with') {
return handle_with($pkg, @_);
}
elsif (uc $control eq uc 'Config') {
return handle_global_config($pkg, @_);
}
elsif (exists $shortcuts{uc($control)}) {
handle_shortcuts($pkg, $control, @_);
$version_requested = $CONFIG{$pkg}{template}{PRINT_VERSION};
return;
inc/Inline.pm view on Meta::CPAN
croak M42_usage_loader() unless $o->{INLINE}{ILSM_type} eq 'compiled';
require DynaLoader;
@Inline::ISA = qw(DynaLoader);
my $global = $o->{CONFIG}{GLOBAL_LOAD} ? '0x01' : '0x00';
my $version = $o->{API}{version} || '0.00';
eval <<END;
package $pkg;
push \@$ {pkg}::ISA, qw($module)
unless \$module eq "$pkg";
local \$$ {module}::VERSION = '$version';
package $module;
push \@$ {module}::ISA, qw(Exporter DynaLoader);
sub dl_load_flags { $global }
${module}::->bootstrap;
END
croak M43_error_bootstrap($module, $@) if $@;
}
inc/Inline.pm view on Meta::CPAN
}
#==============================================================================
# Process the config options that apply to all Inline sections
#==============================================================================
sub handle_global_config {
my $pkg = shift;
while (@_) {
my ($key, $value) = (uc shift, shift);
croak M02_usage() if $key =~ /[\s\n]/;
if ($key =~ /^(ENABLE|DISABLE)$/) {
Acme-MUDLike
view release on metacpan or search on metacpan
lib/Acme/MUDLike.pm view on Meta::CPAN
# Todo:
#
# * what would be *really* cool is doing on the fly image generation to draw an overhead map of the program based on a
# graph of which objects reference which other objects and let people go walk around inside of their program
# and then they could fight methods and use global variables as weapons!
#
# * http://zvtm.sourceforge.net/zgrviewer.html or something similar for showing the user the "map" of
# nodes/rooms/whatever made of has-a references or something.
#
# * /goto should put you inside an arbitrary object, /look should list as exits and/or items the object references contained by that object
lib/Acme/MUDLike.pm view on Meta::CPAN
*/
// Global undefined variable
window.undefined = window.undefined;
var jQuery = function(a,c) {
// If the context is global, return a new object
if ( window == this )
return new jQuery(a,c);
// Make sure that a selection was provided
a = a || document;
lib/Acme/MUDLike.pm view on Meta::CPAN
// ID, class, and element selectors
re2 = /^([#.]?)([a-z0-9\\*_-]*)/i;
m = re2.exec(t);
}
// Try to do a global search by ID, where we can
if ( m[1] == "#" && ret[ret.length-1].getElementById ) {
// Optimization for HTML document case
var oid = ret[ret.length-1].getElementById(m[2]);
// Do a quick check for the existence of the actual ID attribute
lib/Acme/MUDLike.pm view on Meta::CPAN
}
// Add the function to the element's handler list
handlers[handler.guid] = handler;
// And bind the global event handler to the element
element["on" + type] = this.handle;
// Remember the function in a global list (for triggering)
if (!this.global[type])
this.global[type] = [];
this.global[type].push( element );
},
guid: 1,
global: {},
// Detach an event or set of events from an element
remove: function(element, type, handler) {
if (element.$events) {
var i,j,k;
lib/Acme/MUDLike.pm view on Meta::CPAN
trigger: function(type, data, element) {
// Clone the incoming data, if any
data = jQuery.makeArray(data || []);
// Handle a global trigger
if ( !element )
jQuery.each( this.global[type] || [], function(){
jQuery.event.trigger( type, data, this );
});
// Handle triggering a single element
else {
lib/Acme/MUDLike.pm view on Meta::CPAN
};
// Clean up after IE to avoid memory leaks
if (jQuery.browser.msie)
jQuery(window).one("unload", function() {
var global = jQuery.event.global;
for ( var type in global ) {
var els = global[type], i = els.length;
if ( i && type != 'unload' )
do
jQuery.event.remove(els[i-1], type);
while (--i);
}
lib/Acme/MUDLike.pm view on Meta::CPAN
evalScripts: function() {
return this.find("script").each(function(){
if ( this.src )
jQuery.getScript( this.src );
else
jQuery.globalEval( this.text || this.textContent || this.innerHTML || "" );
}).end();
}
});
lib/Acme/MUDLike.pm view on Meta::CPAN
ajaxSetup: function( settings ) {
jQuery.extend( jQuery.ajaxSettings, settings );
},
ajaxSettings: {
global: true,
type: "GET",
timeout: 0,
contentType: "application/x-www-form-urlencoded",
processData: true,
async: true,
lib/Acme/MUDLike.pm view on Meta::CPAN
},
// Last-Modified header cache for next request
lastModified: {},
ajax: function( s ) {
// TODO introduce global settings, allowing the client to modify them for all requests, not only timeout
s = jQuery.extend({}, jQuery.ajaxSettings, s);
// if data available
if ( s.data ) {
// convert data if not already a string
lib/Acme/MUDLike.pm view on Meta::CPAN
s.data = null;
}
}
// Watch for a new set of requests
if ( s.global && ! jQuery.active++ )
jQuery.event.trigger( "ajaxStart" );
var requestDone = false;
// Create the request object
lib/Acme/MUDLike.pm view on Meta::CPAN
// Allow custom headers/mimetypes
if( s.beforeSend )
s.beforeSend(xml);
if ( s.global )
jQuery.event.trigger("ajaxSend", [xml, s]);
// Wait for a response to come back
var onreadystatechange = function(isTimeout){
// The transfer is complete and the data is available, or the request timed out
lib/Acme/MUDLike.pm view on Meta::CPAN
// If a local callback was specified, fire it and pass it the data
if ( s.success )
s.success( data, status );
// Fire the global callback
if( s.global )
jQuery.event.trigger( "ajaxSuccess", [xml, s] );
} else
jQuery.handleError(s, xml, status);
} catch(e) {
status = "error";
jQuery.handleError(s, xml, status, e);
}
// The request was completed
if( s.global )
jQuery.event.trigger( "ajaxComplete", [xml, s] );
// Handle the global AJAX counter
if ( s.global && ! --jQuery.active )
jQuery.event.trigger( "ajaxStop" );
// Process result
if ( s.complete )
s.complete(xml, status);
lib/Acme/MUDLike.pm view on Meta::CPAN
handleError: function( s, xml, status, e ) {
// If a local callback was specified, fire it
if ( s.error ) s.error( xml, status, e );
// Fire the global callback
if ( s.global )
jQuery.event.trigger( "ajaxError", [xml, s, e] );
},
// Counter for holding the number of active queries
active: 0,
lib/Acme/MUDLike.pm view on Meta::CPAN
httpData: function( r, type ) {
var ct = r.getResponseHeader("content-type");
var data = !type && ct && ct.indexOf("xml") >= 0;
data = type == "xml" || data ? r.responseXML : r.responseText;
// If the type is "script", eval it in global context
if ( type == "script" )
jQuery.globalEval( data );
// Get the JavaScript object, if JSON is used.
if ( type == "json" )
eval( "data = " + data );
lib/Acme/MUDLike.pm view on Meta::CPAN
// Return the resulting serialization
return s.join("&");
},
// evalulates a script in global context
// not reliable for safari
globalEval: function( data ) {
if ( window.execScript )
window.execScript( data );
else if ( jQuery.browser.safari )
// safari doesn't provide a synchronous global eval
window.setTimeout( data, 0 );
else
eval.call( window, data );
}
Acme-Marvel-CinematicUniverse-Characters
view release on metacpan or search on metacpan
lib/Acme/Marvel/CinematicUniverse/Character.pm.mite.pm view on Meta::CPAN
# Destructor should call DEMOLISH methods
sub DESTROY {
my $self = shift;
my $class = ref( $self ) || $self;
my $meta = ( $Mite::META{$class} ||= $class->__META__ );
my $in_global_destruction = defined ${^GLOBAL_PHASE}
? ${^GLOBAL_PHASE} eq 'DESTRUCT'
: Devel::GlobalDestruction::in_global_destruction();
for my $demolisher ( @{ $meta->{DEMOLISH} || [] } ) {
my $e = do {
local ( $?, $@ );
eval { $demolisher->( $self, $in_global_destruction ) };
$@;
};
no warnings 'misc'; # avoid (in cleanup) warnings
die $e if $e; # rethrow
}
Acme-Matt-Daemon
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if (
defined( my $cur = _version_check( _load($mod), $arg ||= 0 ) ) )
{
print "loaded. ($cur" . ( $arg ? " >= $arg" : '' ) . ")\n";
push @Existing, $mod => $arg;
$DisabledTests{$_} = 1 for map { glob($_) } @skiptests;
}
else {
print "missing." . ( $arg ? " (would need $arg)" : '' ) . "\n";
push @required, $mod => $arg;
}
inc/Module/AutoInstall.pm view on Meta::CPAN
) =~ /^[Yy]/
)
)
{
push( @Missing, @required );
$DisabledTests{$_} = 1 for map { glob($_) } @skiptests;
}
elsif ( !$SkipInstall
and $default
and $mandatory
and
_prompt( qq{==> The module(s) are mandatory! Really skip?}, 'n', )
=~ /^[Nn]/ )
{
push( @Missing, @required );
$DisabledTests{$_} = 1 for map { glob($_) } @skiptests;
}
else {
$DisabledTests{$_} = 1 for map { glob($_) } @tests;
}
}
$UnderCPAN = _check_lock(); # check for $UnderCPAN
inc/Module/AutoInstall.pm view on Meta::CPAN
}
$args{test}{TESTS} ||= 't/*.t';
$args{test}{TESTS} = join( ' ',
grep { !exists( $DisabledTests{$_} ) }
map { glob($_) } split( /\s+/, $args{test}{TESTS} ) );
my $missing = join( ',', @Missing );
my $config =
join( ',', UNIVERSAL::isa( $Config, 'HASH' ) ? %{$Config} : @{$Config} )
if $Config;
Acme-Meow
view release on metacpan or search on metacpan
lib/Acme/Meow.pm view on Meta::CPAN
if not called directly on a kitty, $_ will be checked for a kitty;
=cut
our @EXPORT = qw(&milk &nip); # afunc is a function
# @EXPORT_OK = qw(&%hash *typeglob); # explicit prefix on &bfunc
sub milk {
my $kitty;
if(not @_ and ref $_ eq __PACKAGE__){
Acme-MetaSyntactic
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic.pm view on Meta::CPAN
my ( $class, @dirs ) = @_;
return
map @$_,
grep { $_->[0] !~ /^[A-Z]/ } # remove the non-theme subclasses
map { [ ( fileparse( $_, qr/\.pm$/ ) )[0] => $_ ] }
map { File::Glob::bsd_glob( File::Spec->catfile( $_, qw( Acme MetaSyntactic *.pm ) ) ) } @dirs;
}
# fetch the list of standard themes
$META{$_} = 0 for keys %{ { __PACKAGE__->_find_themes(@INC) } };
( run in 1.428 second using v1.01-cache-2.11-cpan-49f99fa48dc )