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
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
lib/Acme/AjiFry.pm view on Meta::CPAN
=for author to fill in:
A list of known problems with the module, together with some
indication Whether they are likely to be fixed in an upcoming
release. Also a list of restrictions on the features the module
does provide: data types that cannot be handled, performance issues
and the circumstances in which they may arise, practical
limitations on the size of data sets, special cases that are not
(yet) handled, etc.
No bugs have been reported.
Please report any bugs or feature requests to
view release on metacpan or search on metacpan
lib/Acme/Akashic/Records.pm
t/00-load.t
t/manifest.t
t/pod-coverage.t
t/pod.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
# 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
lib/Acme/AlgebraicToRPN.pm
t/00-load.t
t/01-test.t
t/pod-coverage.t
t/pod.t
META.yml Module meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
t/pod-coverage.t
t/pod-encoding.t
t/pod-spelling.t
t/pod-version.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
t/00-load.t
t/manifest.t
t/pod-coverage.t
t/pod.t
xt/boilerplate.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/Archive/Mbox.pm view on Meta::CPAN
=head1 SYNOPSIS
Uses Mbox as an archive format, like tar or zip but silly. Creates an mbox
with one message per file or directory. File contents are stored as an
attachment, metadata goes in mail headers.
use Acme::Archive::Mbox;
my $archive = Acme::Archive::Mbox->new();
$archive->add_file('filename');
$archive->add_data('file/name', $contents);
$archive->write('foo.mbox');
...
$archive->read('foo.mbox');
lib/Acme/Archive/Mbox.pm view on Meta::CPAN
my $class = shift;
my $self = { files => [] };
return bless $self,$class;
}
=head2 add_data ($name, $contents, %attr)
Add a file given a filename and contents. (File need not exist on disk)
=cut
sub add_data {
my $self = shift;
my $name = shift;
my $contents = shift;
my %attr = @_;
lib/Acme/Archive/Mbox.pm view on Meta::CPAN
my $mgr = Mail::Box::Manager->new;
my $folder = $mgr->open($mboxname, type => 'mbox', create => 1, access => 'rw') or die "Could not create $mboxname";
for my $file (@{$self->{files}}) {
my $attach = Mail::Message::Body->new( mime_type => 'application/octet-stream',
data => $file->contents,
);
my $message = Mail::Message->build( From => '"Acme::Archive::Mbox" <AAM@example.com>',
To => '"Anyone, really" <anyone@example.com>',
Subject => $file->name,
'X-AAM-uid' => $file->uid,
'X-AAM-gid' => $file->gid,
'X-AAM-mode' => $file->mode,
'X-AAM-mtime' => $file->mtime,
data => 'attached',
attach => $attach, );
$folder->addMessage($message);
}
$folder->write();
$mgr->close($folder);
lib/Acme/Archive/Mbox.pm view on Meta::CPAN
for (qw/uid gid mode mtime/) {
$attr{$_} = $message->get("X-AAM-$_");
}
my $contents = ($message->parts())[1]->decoded();
$self->add_data($name, $contents, %attr);
}
$mgr->close($folder);
}
=head1 AUTHOR
view release on metacpan or search on metacpan
t/10-instance.t
t/manifest.t
t/pod-coverage.t
t/pod.t
MANIFEST.SKIP
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/AsciiArtFarts.pm
t/00-load.t
t/manifest.t
t/pod-coverage.t
t/pod.t
META.yml Module meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
lib/Acme/AsciiArtinator.pm view on Meta::CPAN
behavior of the code. A separate test will be conducted for
every C<test_argvE<lt>NNNE<gt>> parameter passed to the
C<asciiartinate> method. The arguments associated with each
parameter will be passed to the code as command-line arguments.
=item test_input1 => [ @data ], test_input2 => [ @data ], test_input3 => ...
Executes the original and the artinated code and compares the output
to make sure that the artination process did not change the
behavior of the code. A separate test will be conducted for
every C<test_inputE<lt>NNNE<gt>> parameter passed to the
C<asciiartinate> method. The data associated with each
parameter will be passed to the standard input of the code.
=back
view release on metacpan or search on metacpan
t/01-emoji.t
t/manifest.t
t/pod-coverage.t
t/pod.t
xt/boilerplate.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
README
t/01-standard-colors.t
t/02-octarine.t
t/03-pod.t
t/04-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
t/10_live.t
t/20_bootstrap.t
lib/Acme/AutoLoad.pm
contrib/cwd_guard.pl
contrib/hello_app.cgi
META.yml Module meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
README.md
t/00-load.t
t/manifest.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
t/00-load.t
t/manifest.t
t/pod-coverage.t
t/pod.t
t/sum.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
Makefile.PL
README
lib/Acme/BOPE.pm
t/00-load.t
t/pod.t
META.yml Module meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
Changes
lib/Acme/Backwards.pm
Makefile.PL
MANIFEST This list of files
META.json Module JSON meta-data (added by MakeMaker)
META.yml Module YAML meta-data (added by MakeMaker)
README
t/00-load.t
t/01-backwards.t
t/02-rof.t
t/manifest.t
view release on metacpan or search on metacpan
lib/Acme/BadFont.pm
maint/Makefile.PL.include
Makefile.PL
MANIFEST This list of files
t/basic.t
META.yml Module YAML meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
README README file (added by Distar)
view release on metacpan or search on metacpan
0.04 Wed Nov 11 19:23:14 2020
Added links to GitHub repository and issue tracker.
0.03 Sat Aug 20 08:42:51 2011
Missed text of GPL in module (pod) documentation.
Need to use Perl 5.14 for building, else metadata is wrong.
0.02 Fri Aug 19 15:49:05 2011
Updated to GPL 3 configured Module::Build to generate the LICENSE file.
0.01 Wed Aug 17 15:28:15 2011
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\.#
\.rej$
\..*\.sw.?$
# Avoid OS-specific files/dirs
# Mac OSX metadata
\B\.DS_Store
# Mac OSX SMB mount metadata files
\B\._
# Avoid Devel::Cover and Devel::CoverX::Covered files.
\bcover_db\b
\bcovered\b
view release on metacpan or search on metacpan
lib/Acme/BeyondPerl/ToSQL.pm view on Meta::CPAN
use Carp;
our $VERSION = 0.01;
our $DEBUG = 0;
my $Dbh; # database handle
my $Type; # rdbm type
END {
$Dbh->disconnect()
}
view release on metacpan or search on metacpan
Makefile.PL
MANIFEST
README
t/Acme-BlahBlahBlah.t
lib/Acme/BlahBlahBlah.pm
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 $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
lib/Acme/Bleach/Numerically.pm
t/00-Require.t
t/01-RoundTrip.t
t/helloworld.pl
t/japh.pl
META.yml Module meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
demo/demo_morse.pl
demo/demo_empty.pl
demo/demo_DWIM.pl
demo/Empty.pm
t/die.t
META.yml Module meta-data (added by MakeMaker)
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
lib/Acme/Boom.pm
Makefile.PL
MANIFEST This list of files
t/01.boom.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
if (ref($stringref) ne "SCALAR") {
croak "need a reference to a scalar,";
}
$class->{position} = 0;
$class->{data} = $stringref;
$class->{end} = 0;
my $tmpfile = $class->{tmpfile} = '.tmp.' . $$;
$class->{fh} = new FileHandle "$tmpfile",
O_RDWR|O_CREAT or croak "$tmpfile: $!";
$class->{FILENO} = $class->{fh}->fileno();
sub WRITE {
my $class = shift;
my($buf,$len,$offset) = @_;
$offset = 0 if (! defined $offset);
my $data = substr($buf, $offset, $len);
my $n = length($data);
$class->print($data);
return $n;
}
sub PRINT {
my $class = shift;
${$class->{data}} .= join('', @_);
$class->{position} = length(${$class->{data}});
1;
}
sub PRINTF {
my $class = shift;
my $class = shift;
my ($buf,$len,$offset) = @_;
$offset = 0 if (! defined $offset);
my $data = ${ $class->{data} };
if ($class->{end} >= length($data)) {
return 0;
}
$buf = substr($data,$offset,$len);
$_[0] = $buf;
$class->{end} += length($buf);
return length($buf);
}
sub READLINE {
my $class = shift;
if ($class->{end} >= length(${ $class->{data} })) {
return undef;
}
my $recsep = $/;
my $rod = substr(${ $class->{data} }, $class->{end}, -1);
$rod =~ m/^(.*)$recsep{0,1}/; # use 0,1 for line sep to include possible no \n on last line
my $line = $1 . $recsep;
$class->{end} += length($line);
return $line;
}