Result:
found more than 523 distributions - search limited to the first 2001 files matching your query
( run in 3.650 )
Acme-Everything
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-EyeDrops
view release on metacpan or search on metacpan
lib/Acme/EyeDrops.pm view on Meta::CPAN
write, write, write;
delete $_{'!'}, delete $"{"@!"}, delete $@{'*'}; # must stop cursing
use less 'characters', $durnit;
read THE, $current, $solution;
not 2, $bad;
delete $white_spaces{''} until $program == glob;
for( $all, my @troubles )
{
unlink 1, $character;
}
ARGH:
lib/Acme/EyeDrops.pm view on Meta::CPAN
london Haiku "A Day in The Life of a London Perl Monger"
map_australia Map of Australia
map_italy Map of Italy
map_japan Map of Japan
map_uk Map of United Kingdom and Ireland
map_world1 World globe, Asian view
map_world2 World globe, African view
map_world3 World globe, American view
merlyn Just another Perl hacker, aka Randal L Schwartz
mongers Perl Mongers logo
moose A moose
moosecamel A moose and a camel (modelled after http://irclog.perlgeek.de)
mosquito A mosquito
Acme-FSM
view release on metacpan or search on metacpan
t/TestSuite.pm view on Meta::CPAN
our @input = @inbase;
$opts{source} = \&AFSMTS_shift;
AFSMTS_wrap;
Quiet generic implementation of I<{source}> code.
Uses script globals:
=over
=item I<@inbase>
Acme-FizzBuzz
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-Flat
view release on metacpan or search on metacpan
"add_tarball_name" : 0,
"finders" : [
":ExecFiles",
":InstallModules"
],
"global" : 0,
"skip_version_provider" : 0
},
"Dist::Zilla::Role::Version::Sanitize" : {
"$Dist::Zilla::Role::Version::Sanitize::VERSION" : "0.002003",
"mantissa" : "6",
"Dist::Zilla::Plugin::BumpVersionAfterRelease" : {
"finders" : [
":ExecFiles",
":InstallModules"
],
"global" : 0,
"munge_makefile_pl" : 1
}
},
"name" : "@Author::KENTNL/BumpVersionAfterRelease",
"version" : "0.015"
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-Image-Stb
view release on metacpan or search on metacpan
name => 'Acme-Image-Stb',
module_name => 'Acme::Image::Stb',
allow_pureperl => 0,
script_files => [glob('script/*'), glob('bin/*')],
PL_files => {},
test_files => ((-d '.git' || $ENV{RELEASE_TESTING}) && -d 'xt') ? 't/ xt/' : 't/',
recursive_test_files => 1,
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;
( run in 3.650 seconds using v1.01-cache-2.11-cpan-1236ad508bc )