view release on metacpan or search on metacpan
Buckaroo.pm view on Meta::CPAN
#
# 1.01 Kevin J. Rice June 11th, 2002
# Submitted to CPAN.
# 1.02 Kevin J. Rice June 13th, 2002
# Fixed "bug" in POD documentation, in response to bug #741 in the
# cpan but tracking database (see http://rt.cpan.org)
#
###############################################################################
use 5.006;
use strict;
Buckaroo.pm view on Meta::CPAN
The book, by the way, is "Object Oriented Perl", by Damian Conway
and Randall L. Schwartz, published by Manning Publications Company;
ISBN: 1884777791; (August 1999).
Also thanks to Jesse who reported a bug in this documentation
and introduced me to the CPAN bug tracking database, available
to everyone to report bugs in CPAN modules or scripts. The address
for this is http://rt.cpan.org. If you know of a bug in a CPAN module,
report it there!
=head1 EXPORT
view release on metacpan or search on metacpan
LICENSE
Makefile.PL
MANIFEST
README
t/buffy.t
META.yml Module meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
MANIFEST
lib/Acme/ButFirst.pm
t/01_use.t
t/02_simple.t
t/03_pod.t
META.yml Module meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
"Dist::Zilla::Plugin::CheckSelfDependency" : {
"finder" : [
":InstallModules"
]
},
"Dist::Zilla::Role::ModuleMetadata" : {
"Module::Metadata" : "1.000031",
"version" : "0.006"
}
},
"name" : "@Author::PERLANCAR/CheckSelfDependency",
"version" : "0.011"
view release on metacpan or search on metacpan
"Dist::Zilla::Plugin::CheckSelfDependency" : {
"finder" : [
":InstallModules"
]
},
"Dist::Zilla::Role::ModuleMetadata" : {
"Module::Metadata" : "1.000036",
"version" : "0.006"
}
},
"name" : "@Author::PERLANCAR/CheckSelfDependency",
"version" : "0.011"
view release on metacpan or search on metacpan
lib/Acme/CPANAuthors/Acme/CPANAuthors/Authors.pm view on Meta::CPAN
ZOFFIX => q[Zoffix Znet] # A::C::Canadian
);
sub _regen {
require HTTP::Tiny;
my $data = '';
my $authsec = 0;
my %authors;
die "Failed\n"
unless HTTP::Tiny->new->request(
'GET',
'http://www.cpan.org/modules/02packages.details.txt',
{data_callback => sub { # Don't scrape the whole file
my $chunk = shift;
if ($chunk =~ m[^Acme::CPANAuthors]sm) {
$authsec++;
$data .= $chunk;
}
elsif ($authsec) { # No more Authors in 02packages
while ($data
=~ m[^(?:Acme::CPANAuthors(?:::(\S+))?).+\w/\w\w/(\w+)/.+$]mg
)
{ $authors{$2} //= [];
push @{$authors{$2}}, $1;
}
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
#line 1
package Module::Install::Metadata;
use strict 'vars';
use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
inc/Module/Install/Metadata.pm view on Meta::CPAN
sub read {
my $self = shift;
$self->include_deps( 'YAML::Tiny', 0 );
require YAML::Tiny;
my $data = YAML::Tiny::LoadFile('META.yml');
# Call methods explicitly in case user has already set some values.
while ( my ( $key, $value ) = each %$data ) {
next unless $self->can($key);
if ( ref $value eq 'HASH' ) {
while ( my ( $module, $version ) = each %$value ) {
$self->can($key)->($self, $module => $version );
}
inc/Module/Install/Metadata.pm view on Meta::CPAN
$v = $v + 0;
}
return $v;
}
sub add_metadata {
my $self = shift;
my %hash = @_;
for my $key (keys %hash) {
warn "add_metadata: $key is not prefixed with 'x_'.\n" .
"Use appopriate function to add non-private metadata.\n" unless $key =~ /^x_/;
$self->{values}->{$key} = $hash{$key};
}
}
inc/Module/Install/Metadata.pm view on Meta::CPAN
# We need YAML::Tiny to write the MYMETA.yml file
unless ( eval { require YAML::Tiny; 1; } ) {
return 1;
}
# Generate the data
my $meta = $self->_write_mymeta_data or return 1;
# Save as the MYMETA.yml file
print "Writing MYMETA.yml\n";
YAML::Tiny::DumpFile('MYMETA.yml', $meta);
}
inc/Module/Install/Metadata.pm view on Meta::CPAN
# We need JSON to write the MYMETA.json file
unless ( eval { require JSON; 1; } ) {
return 1;
}
# Generate the data
my $meta = $self->_write_mymeta_data or return 1;
# Save as the MYMETA.yml file
print "Writing MYMETA.json\n";
Module::Install::_write(
'MYMETA.json',
JSON->new->pretty(1)->canonical->encode($meta),
);
}
sub _write_mymeta_data {
my $self = shift;
# If there's no existing META.yml there is nothing we can do
return undef unless -f 'META.yml';
view release on metacpan or search on metacpan
<http://purl.org/NET/cpan-uri/dist/Acme-CPANAuthors-Australian/project>
a doap:Project;
dc:contributor <http://purl.org/NET/cpan-uri/person/tobyink>;
doap-deps:runtime-requirement [ doap-deps:on "Acme::CPANAuthors"^^doap-deps:CpanId ];
doap:bug-database <http://rt.cpan.org/Dist/Display.html?Queue=Acme-CPANAuthors-Australian>;
doap:created "2013-07-01"^^xsd:date;
doap:developer <http://purl.org/NET/cpan-uri/person/tobyink>;
doap:download-page <https://metacpan.org/release/Acme-CPANAuthors-Australian>;
doap:homepage <https://metacpan.org/release/Acme-CPANAuthors-Australian>;
doap:license <http://dev.perl.org/licenses/>;
view release on metacpan or search on metacpan
examples/check100.pl view on Meta::CPAN
my $mech = WWW::Mechanize->new();
my $source = 'http://stats.cpantesters.org/stats/backpan100.csv';
my $target = basename($source);
$mech->mirror($source,$target);
my $file = 'data/backpan100.csv';
my $diff = diff $file, $target;
print $diff . "\n";
#unlink $target;
view release on metacpan or search on metacpan
Makefile.PL
MANIFEST
MANIFEST.SKIP
t/00-load.t
lib/Acme/CPANAuthors/Belarusian.pm
META.yml Module YAML meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
MANIFEST
README
t/000_basic.t
t/950_pod.t
t/960_pod_coverage.t
META.yml Module YAML meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
MANIFEST This list of files
README.md
t/00_load.t
xt/99_pod.t
xt/99_podcoverage.t
META.yml Module meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
"Dist::Zilla::Plugin::CheckSelfDependency" : {
"finder" : [
":InstallModules"
]
},
"Dist::Zilla::Role::ModuleMetadata" : {
"Module::Metadata" : "1.000037",
"version" : "0.006"
}
},
"name" : "@Author::PERLANCAR/CheckSelfDependency",
"version" : "0.011"
"$Dist::Zilla::Role::MetaProvider::Provider::VERSION" : "2.002004",
"inherit_missing" : 1,
"inherit_version" : 1,
"meta_noindex" : 1
},
"Dist::Zilla::Role::ModuleMetadata" : {
"Module::Metadata" : "1.000037",
"version" : "0.006"
}
},
"name" : "@Author::PERLANCAR/MetaProvides::Package",
"version" : "2.004003"
view release on metacpan or search on metacpan
examples/check100.pl view on Meta::CPAN
my $mech = WWW::Mechanize->new();
my $source = 'http://stats.cpantesters.org/stats/cpan100.csv';
my $target = basename($source);
$mech->mirror($source,$target);
my $file = 'data/cpan100.csv';
my $diff = diff $file, $target;
print $diff . "\n";
#unlink $target;
view release on metacpan or search on metacpan
"Dist::Zilla::Plugin::CheckSelfDependency" : {
"finder" : [
":InstallModules"
]
},
"Dist::Zilla::Role::ModuleMetadata" : {
"Module::Metadata" : "1.000037",
"version" : "0.006"
}
},
"name" : "@Author::PERLANCAR/CheckSelfDependency",
"version" : "0.011"
"$Dist::Zilla::Role::MetaProvider::Provider::VERSION" : "2.002004",
"inherit_missing" : 1,
"inherit_version" : 1,
"meta_noindex" : 1
},
"Dist::Zilla::Role::ModuleMetadata" : {
"Module::Metadata" : "1.000037",
"version" : "0.006"
}
},
"name" : "@Author::PERLANCAR/MetaProvides::Package",
"version" : "2.004003"
view release on metacpan or search on metacpan
"Dist::Zilla::Plugin::CheckSelfDependency" : {
"finder" : [
":InstallModules"
]
},
"Dist::Zilla::Role::ModuleMetadata" : {
"Module::Metadata" : "1.000037",
"version" : "0.006"
}
},
"name" : "@Author::PERLANCAR/CheckSelfDependency",
"version" : "0.011"
"$Dist::Zilla::Role::MetaProvider::Provider::VERSION" : "2.002004",
"inherit_missing" : 1,
"inherit_version" : 1,
"meta_noindex" : 1
},
"Dist::Zilla::Role::ModuleMetadata" : {
"Module::Metadata" : "1.000037",
"version" : "0.006"
}
},
"name" : "@Author::PERLANCAR/MetaProvides::Package",
"version" : "2.004003"
view release on metacpan or search on metacpan
lib/Acme/CPANAuthors/CPANTS/FiveOrMore.pm view on Meta::CPAN
See documentation for Acme::CPANAuthors for more details.
=head1 DESCRIPTION
This class provides a hash of PAUSE IDs and names of CPAN authors
who have five or more distributions in the CPANTS database.
=head1 DEVELOPMENT
The current sources of this module are found on github,
L<< git://github.com/Abigail/Acme--CPANAuthors--CPANTS--FiveOrMore.git >>.
view release on metacpan or search on metacpan
"version" : "0.015"
},
{
"class" : "Dist::Zilla::Plugin::InstallGuide",
"config" : {
"Dist::Zilla::Role::ModuleMetadata" : {
"Module::Metadata" : "1.000037",
"version" : "0.006"
}
},
"name" : "@Author::ETHER/InstallGuide",
"version" : "1.200014"
"$Dist::Zilla::Role::MetaProvider::Provider::VERSION" : "2.002004",
"inherit_missing" : 0,
"inherit_version" : 0,
"meta_noindex" : 1
},
"Dist::Zilla::Role::ModuleMetadata" : {
"Module::Metadata" : "1.000037",
"version" : "0.006"
}
},
"name" : "@Author::ETHER/MetaProvides::Package",
"version" : "2.004003"
"Dist::Zilla::Plugin::CheckSelfDependency" : {
"finder" : [
":InstallModules"
]
},
"Dist::Zilla::Role::ModuleMetadata" : {
"Module::Metadata" : "1.000037",
"version" : "0.006"
}
},
"name" : "@Author::ETHER/CheckSelfDependency",
"version" : "0.011"
view release on metacpan or search on metacpan
README
t/00-load.t
t/boilerplate.t
t/pod-coverage.t
t/pod.t
META.yml Module YAML meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
MANIFEST This list of files
README
t/00_load.t
t/99_pod.t
t/99_podcoverage.t
META.yml Module meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
#line 1
package Module::Install::Metadata;
use strict 'vars';
use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
inc/Module/Install/Metadata.pm view on Meta::CPAN
sub read {
my $self = shift;
$self->include_deps( 'YAML::Tiny', 0 );
require YAML::Tiny;
my $data = YAML::Tiny::LoadFile('META.yml');
# Call methods explicitly in case user has already set some values.
while ( my ( $key, $value ) = each %$data ) {
next unless $self->can($key);
if ( ref $value eq 'HASH' ) {
while ( my ( $module, $version ) = each %$value ) {
$self->can($key)->($self, $module => $version );
}
inc/Module/Install/Metadata.pm view on Meta::CPAN
$v = $v + 0;
}
return $v;
}
sub add_metadata {
my $self = shift;
my %hash = @_;
for my $key (keys %hash) {
warn "add_metadata: $key is not prefixed with 'x_'.\n" .
"Use appopriate function to add non-private metadata.\n" unless $key =~ /^x_/;
$self->{values}->{$key} = $hash{$key};
}
}
inc/Module/Install/Metadata.pm view on Meta::CPAN
# We need YAML::Tiny to write the MYMETA.yml file
unless ( eval { require YAML::Tiny; 1; } ) {
return 1;
}
# Generate the data
my $meta = $self->_write_mymeta_data or return 1;
# Save as the MYMETA.yml file
print "Writing MYMETA.yml\n";
YAML::Tiny::DumpFile('MYMETA.yml', $meta);
}
inc/Module/Install/Metadata.pm view on Meta::CPAN
# We need JSON to write the MYMETA.json file
unless ( eval { require JSON; 1; } ) {
return 1;
}
# Generate the data
my $meta = $self->_write_mymeta_data or return 1;
# Save as the MYMETA.yml file
print "Writing MYMETA.json\n";
Module::Install::_write(
'MYMETA.json',
JSON->new->pretty(1)->canonical->encode($meta),
);
}
sub _write_mymeta_data {
my $self = shift;
# If there's no existing META.yml there is nothing we can do
return undef unless -f 'META.yml';
view release on metacpan or search on metacpan
[MetaTests]
[PodSyntaxTests]
[PodCoverageTests]
[Test::Portability]
; metadata
[AutoPrereqs]
[Prereqs / TestRequires]
[MinimumPerl]
[MetaProvides::Package]
view release on metacpan or search on metacpan
t/000-report-versions-tiny.t view on Meta::CPAN
That will help me reproduce the issue and solve your problem.
EOT
diag($v);
ok(1, "we really didn't test anything, just reporting data");
$success = 1;
# Work around another nasty module on CPAN. :/
no warnings 'once';
$Template::Test::NO_FLUSH = 1;
view release on metacpan or search on metacpan
t/000_basic.t
t/950_pod.t
t/960_pod_coverage.t
Changes
README
META.yml Module meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
t/000_basic.t
t/950_pod.t
t/960_pod_coverage.t
Changes
README
META.yml Module YAML meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
t/000_basic.t
t/950_pod.t
t/960_pod_coverage.t
Changes
README
META.yml Module YAML meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
#line 1
package Module::Install::Metadata;
use strict 'vars';
use Module::Install::Base;
use vars qw{$VERSION $ISCORE @ISA};
inc/Module/Install/Metadata.pm view on Meta::CPAN
sub read {
my $self = shift;
$self->include_deps( 'YAML::Tiny', 0 );
require YAML::Tiny;
my $data = YAML::Tiny::LoadFile('META.yml');
# Call methods explicitly in case user has already set some values.
while ( my ( $key, $value ) = each %$data ) {
next unless $self->can($key);
if ( ref $value eq 'HASH' ) {
while ( my ( $module, $version ) = each %$value ) {
$self->can($key)->($self, $module => $version );
}
view release on metacpan or search on metacpan
# date "+%a, %d %b %Y %H:%M:%S %z"
0.04 Sat, 28 Aug 2010 11:45:10 +0200
* Add rbo, getty, data, Eikeg
* use utf8
0.03 Mon, 10 Aug 2009 13:10:23 +0200
* Add Mario.
view release on metacpan or search on metacpan
xt/perlcriticrc
xt/pod.t
xt/pod_coverage.t
xt/portability_filenames.t
xt/vars.t
META.yml Module YAML meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
lib/Acme/CPANAuthors/Factory.pm view on Meta::CPAN
use strict;
use warnings;
use Acme::CPANAuthors;
sub create {
my ($class, %data) = @_;
my @categories = keys %data;
my %authors = map { %{ $data{$_} } } @categories;
return bless {
categories => \@categories,
authors => \%authors,
}, 'Acme::CPANAuthors';
lib/Acme/CPANAuthors/Factory.pm view on Meta::CPAN
Use this class when you have a list of authors that you want to manipulate,
but you only have the list of names at runtime (where
L<Acme::CPANAuthors::Register> is not very convenient).
An L<Acme::CPANAuthors> object will be created for you, containing the same
data as if you had registered a new class at compile time.
However, you cannot call C<< Acme::CPANAuthors->new >> with your category and
get back a new object; it still only knows about modules on disk.
=head1 METHOD