view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
$args{path} =~ s!::!/!g;
}
$args{file} ||= "$args{base}/$args{prefix}/$args{path}.pm";
$args{wrote} = 0;
bless( \%args, $class );
}
sub call {
my ($self, $method) = @_;
my $obj = $self->load($method) or return;
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
# Implementation
# Create an empty YAML::Tiny object
sub new {
my $class = shift;
bless [ @_ ], $class;
}
# Create an object from a file
sub read {
my $class = ref $_[0] ? ref shift : shift;
t/000-report-versions.t view on Meta::CPAN
}
# Create an object from a string
sub read_string {
my $class = ref $_[0] ? ref shift : shift;
my $self = bless [], $class;
my $string = $_[0];
unless ( defined $string ) {
return $self->_error("Did not provide a string to load");
}
t/000-report-versions.t view on Meta::CPAN
# Failed to load Scalar::Util
eval <<'END_PERL';
sub refaddr {
my $pkg = ref($_[0]) or return undef;
if (!!UNIVERSAL::can($_[0], 'can')) {
bless $_[0], 'Scalar::Util::Fake';
} else {
$pkg = undef;
}
"$_[0]" =~ /0x(\w+)/;
my $i = do { local $^W; hex $1 };
bless $_[0], $pkg if defined $pkg;
$i;
}
END_PERL
} else {
Scalar::Util->import('refaddr');
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
$args{path} =~ s!::!/!g;
}
$args{file} ||= "$args{base}/$args{prefix}/$args{path}.pm";
$args{wrote} = 0;
bless( \%args, $class );
}
sub call {
my ($self, $method) = @_;
my $obj = $self->load($method) or return;
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
$args{path} =~ s!::!/!g;
}
$args{file} ||= "$args{base}/$args{prefix}/$args{path}.pm";
$args{wrote} = 0;
bless( \%args, $class );
}
sub call {
my ($self, $method) = @_;
my $obj = $self->load($method) or return;
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
# Implementation
# Create an empty YAML::Tiny object
sub new {
my $class = shift;
bless [ @_ ], $class;
}
# Create an object from a file
sub read {
my $class = ref $_[0] ? ref shift : shift;
t/000-report-versions.t view on Meta::CPAN
}
# Create an object from a string
sub read_string {
my $class = ref $_[0] ? ref shift : shift;
my $self = bless [], $class;
my $string = $_[0];
unless ( defined $string ) {
return $self->_error("Did not provide a string to load");
}
t/000-report-versions.t view on Meta::CPAN
# Failed to load Scalar::Util
eval <<'END_PERL';
sub refaddr {
my $pkg = ref($_[0]) or return undef;
if (!!UNIVERSAL::can($_[0], 'can')) {
bless $_[0], 'Scalar::Util::Fake';
} else {
$pkg = undef;
}
"$_[0]" =~ /0x(\w+)/;
my $i = do { local $^W; hex $1 };
bless $_[0], $pkg if defined $pkg;
$i;
}
END_PERL
} else {
Scalar::Util->import('refaddr');
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
$args{path} =~ s!::!/!g;
}
$args{file} ||= "$args{base}/$args{prefix}/$args{path}.pm";
$args{wrote} = 0;
bless( \%args, $class );
}
sub call {
my ($self, $method) = @_;
my $obj = $self->load($method) or return;
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
$args{path} =~ s!::!/!g;
}
$args{file} ||= "$args{base}/$args{prefix}/$args{path}.pm";
$args{wrote} = 0;
bless( \%args, $class );
}
sub call {
my ($self, $method) = @_;
my $obj = $self->load($method) or return;
view release on metacpan or search on metacpan
lib/Acme/CPANAuthors.pm view on Meta::CPAN
my %authors;
foreach my $category ( @categories ) {
%authors = ( %authors, _get_authors_of($category) );
}
bless {
categories => \@categories,
authors => \%authors,
}, $class;
}
view release on metacpan or search on metacpan
lib/Acme/CPANLists/PERLANCAR/Unbless.pm view on Meta::CPAN
package Acme::CPANLists::PERLANCAR::Unbless;
our $DATE = '2017-09-08'; # DATE
our $VERSION = '0.26'; # VERSION
our @Module_Lists = (
{
summary => 'Unblessing a reference',
description => <<'_',
Blessing a reference is easy with `bless()` but surprisingly (or
unsurprisingly?) unblessing a blessed reference is not as simple. Currently you
can use the `unbless()` function from <pm:Data::Structure::Util> or `damn()`
from <pm:Acme::Damn> (which is a slimmer module if you just need unblessing
feature). Both are XS modules. If you need a pure-Perl solution, currently
you're out of luck. <pm:Function::Fallback::CoreOrPP> provides `unbless()` where
the fallback option is shallow copying.
_
entries => [
{
lib/Acme/CPANLists/PERLANCAR/Unbless.pm view on Meta::CPAN
],
},
);
1;
# ABSTRACT: Unblessing a reference
__END__
=pod
=encoding UTF-8
=head1 NAME
Acme::CPANLists::PERLANCAR::Unbless - Unblessing a reference
=head1 VERSION
This document describes version 0.26 of Acme::CPANLists::PERLANCAR::Unbless (from Perl distribution Acme-CPANLists-PERLANCAR), released on 2017-09-08.
=head1 MODULE LISTS
=head2 Unblessing a reference
Blessing a reference is easy with C<bless()> but surprisingly (or
unsurprisingly?) unblessing a blessed reference is not as simple. Currently you
can use the C<unbless()> function from L<Data::Structure::Util> or C<damn()>
from L<Acme::Damn> (which is a slimmer module if you just need unblessing
feature). Both are XS modules. If you need a pure-Perl solution, currently
you're out of luck. L<Function::Fallback::CoreOrPP> provides C<unbless()> where
the fallback option is shallow copying.
=over
view release on metacpan or search on metacpan
lib/Acme/CPANLists.pm view on Meta::CPAN
The first step is to decide on a name of the module. It must be under the
C<Acme::CPANLists::> namespace. Since, unlike in Acme::CPANAuthors, a module can
contain multiple lists, you can just use your CPAN ID for the module, even if
you want to create many lists, for example: L<Acme::CPANLists::PERLANCAR>. But I
recommend that you put each list into a separate module under your CPAN ID
subpackage, for example: L<Acme::CPANLists::PERLANCAR::Unbless> or
L<Acme::CPANLists::PERLANCAR::Task::PickingRandomLinesFromFile>.
Inside the module, the two main package variables you have to declare are:
our @Author_Lists = ( ... );
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/CPANRatings/User/perlancar.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-10-29'; # DATE
our $DIST = 'Acme-CPANModules-Import-CPANRatings-User-perlancar'; # DIST
our $VERSION = '0.002'; # VERSION
our $LIST = {description=>"This list is generated by scraping CPANRatings (cpanratings.perl.org) user page.",entries=>[{description=>"\nI'm not sure this really "befits a ::Tiny distribution" just because it's a thin wrapper of something. P...
1;
# ABSTRACT: List of modules mentioned by CPANRatings user perlancar
__END__
lib/Acme/CPANModules/Import/CPANRatings/User/perlancar.pm view on Meta::CPAN
=item L<Acme::Curse>
Author: L<MORITZ|https://metacpan.org/author/MORITZ>
This pure-perl module creates a shallow copy of the object instead of directly removing blessing from the same object (which requires XS). Acme::Damn is the more direct counterpart of bless().
<br>
=item L<Digest::SHA1>
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-10-29'; # DATE
our $DIST = 'Acme-CPANModules-Import-CPANRatings-User-stevenharyanto'; # DIST
our $VERSION = '0.002'; # VERSION
our $LIST = {description=>"This list is generated by scraping CPANRatings (cpanratings.perl.org) user page.",entries=>[{description=>"\n(REMOVED)\n",module=>"Log::Any",rating=>undef},{description=>"\nProvides a thin/lightweight OO interface for \$?, ...
1;
# ABSTRACT: List of modules mentioned by CPANRatings user stevenharyanto
__END__
lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm view on Meta::CPAN
=item L<Data::Structure::Util>
Author: L<ANDYA|https://metacpan.org/author/ANDYA>
@Tom Browder: If you just need unblessing, there's also another module Acme::Damn which is more minimalist. You can also create a shallow copy to unbless a reference, if you want to do it without the help of any module (Both Acme::Damn and Data::Stru...
<br><br>Re Data::Structure::Util: nifty module that provides speedy alternative for several things like checking for circular references, weaken them, unblessing a reference, etc. You can do many of the routines in pure Perl. This module lets you do ...
<br>
=item L<Fsdb>
lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm view on Meta::CPAN
=item L<Data::CompactDump>
Author: L<MILSO|https://metacpan.org/author/MILSO>
At the current form, simply too simplistic to be an alternative to Data::Dump or Data::Dumper. No support for blessed refs, filehandle/globs, circular references, and so on. Changes numbers to stringy numbers or vice versa.
<br><br>Currently also contains some bugs like for -1 (changes it to string), "\" (produces invalid dump, does not handle backslash yet currently),
<br><br>And Data::Dump's dump of {} and [] are currently more compact ;-)
<br><br>Need to be improved significantly first. But keep up the effort.
lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm view on Meta::CPAN
=item L<Acme::Damn>
Author: L<IBB|https://metacpan.org/author/IBB>
5 stars for cute metaphor (there's also Acme::Holy by the same author, but that is just another implementation of Scalar::Util's blessed()) and for prompt support from the author.
<br><br>I'm sure there exists a real use case to move this out of Acme::, however obscure that might be. Can't come up with any right now, all I can think of is reblessing, which can be handled with bless() from the start.
<br><br>UPDATE 2013-09-11: I found a real use-case for it! Cleaning up data to be sent to JSON. BTW, Data::Structure::Util also has an unbless() function, but Acme::Damn is smaller and faster. Data::Structure::Util also currently doesn't build on Win...
<br>
=item L<WWW::Parallels::Agent>
lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm view on Meta::CPAN
=item L<autodie>
Author: L<TODDR|https://metacpan.org/author/TODDR>
I started using autodie in almost all of my applications a few months ago. It's somewhat of a mixed blessing. For existing applications, it can break things and making things less robust, solely because old code are not built with autodie in mind.
<br><br>But the best thing about it is that it's lexically scoped, so for sections of code that you're not sure about, just sprinkle 'no autodie' to get the old behaviour.
<br><br>It should be used on probably 95% of code out there. For the rest of the cases, where you need to report the status of each I/O operation, it's obviously more convenient to check $? instead of trapping exception everytime.
<br><br>+1 for getting it into core.
<br>
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Unbless.pm view on Meta::CPAN
package Acme::CPANModules::Unbless;
use strict;
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-10-31'; # DATE
our $DIST = 'Acme-CPANModules-Unbless'; # DIST
our $VERSION = '0.002'; # VERSION
our $LIST = {
summary => 'List of modules to unbless a reference',
description => <<'_',
Blessing a reference is easy with `bless()` but surprisingly (or
unsurprisingly?) unblessing a blessed reference is not as simple. Currently you
can use the `unbless()` function from <pm:Data::Structure::Util> or `damn()`
from <pm:Acme::Damn> (which is a slimmer module if you just need unblessing
feature). Both are XS modules. If you need a pure-Perl solution, currently
you're out of luck. <pm:Function::Fallback::CoreOrPP> provides `unbless()` where
the fallback option is shallow copying.
_
entries => [
{
lib/Acme/CPANModules/Unbless.pm view on Meta::CPAN
},
],
};
1;
# ABSTRACT: List of modules to unbless a reference
__END__
=pod
=encoding UTF-8
=head1 NAME
Acme::CPANModules::Unbless - List of modules to unbless a reference
=head1 VERSION
This document describes version 0.002 of Acme::CPANModules::Unbless (from Perl distribution Acme-CPANModules-Unbless), released on 2023-10-31.
=head1 DESCRIPTION
Blessing a reference is easy with C<bless()> but surprisingly (or
unsurprisingly?) unblessing a blessed reference is not as simple. Currently you
can use the C<unbless()> function from L<Data::Structure::Util> or C<damn()>
from L<Acme::Damn> (which is a slimmer module if you just need unblessing
feature). Both are XS modules. If you need a pure-Perl solution, currently
you're out of luck. L<Function::Fallback::CoreOrPP> provides C<unbless()> where
the fallback option is shallow copying.
=head1 ACME::CPANMODULES ENTRIES
=over
lib/Acme/CPANModules/Unbless.pm view on Meta::CPAN
Aside from reading this Acme::CPANModules module's POD documentation, you can
install all the listed modules (entries) using L<cpanm-cpanmodules> script (from
L<App::cpanm::cpanmodules> distribution):
% cpanm-cpanmodules -n Unbless
Alternatively you can use the L<cpanmodules> CLI (from L<App::cpanmodules>
distribution):
% cpanmodules ls-entries Unbless | cpanm -n
or L<Acme::CM::Get>:
% perl -MAcme::CM::Get=Unbless -E'say $_->{module} for @{ $LIST->{entries} }' | cpanm -n
or directly:
% perl -MAcme::CPANModules::Unbless -E'say $_->{module} for @{ $Acme::CPANModules::Unbless::LIST->{entries} }' | cpanm -n
This Acme::CPANModules module also helps L<lcpan> produce a more meaningful
result for C<lcpan related-mods> command when it comes to finding related
modules for the modules listed in this Acme::CPANModules module.
See L<App::lcpan::Cmd::related_mods> for more details on how "related modules"
are found.
=head1 HOMEPAGE
Please visit the project's homepage at L<https://metacpan.org/release/Acme-CPANModules-Unbless>.
=head1 SOURCE
Source repository is at L<https://github.com/perlancar/perl-Acme-CPANModules-Unbless>.
=head1 SEE ALSO
L<Acme::CPANModules> - about the Acme::CPANModules namespace
lib/Acme/CPANModules/Unbless.pm view on Meta::CPAN
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=head1 BUGS
Please report any bugs or feature requests on the bugtracker website L<https://rt.cpan.org/Public/Dist/Display.html?Name=Acme-CPANModules-Unbless>
When submitting a bug or request, please include a test-file or a
patch to an existing test-file that illustrates the bug or desired
feature.
view release on metacpan or search on metacpan
lib/Acme/CPANModules/VersionNumber/Perl.pm view on Meta::CPAN
use Data::Dump;
dd( version->parse("1.2.3") );
which prints:
bless({ original => "1.2.3", qv => 1, version => [1, 2, 3] }, "version")
However:
dd( version->parse("1.2.3_01") );
prints:
bless({ alpha => 1, original => "1.2.3_01", qv => 1, version => [1, 2, 301] }, "version")
## Comparing version numbers
You can compare two version numbers again using version->parse():
lib/Acme/CPANModules/VersionNumber/Perl.pm view on Meta::CPAN
use Data::Dump;
dd( version->parse("1.2.3") );
which prints:
bless({ original => "1.2.3", qv => 1, version => [1, 2, 3] }, "version")
However:
dd( version->parse("1.2.3_01") );
prints:
bless({ alpha => 1, original => "1.2.3_01", qv => 1, version => [1, 2, 301] }, "version")
=head2 Comparing version numbers
You can compare two version numbers again using version->parse():
view release on metacpan or search on metacpan
devdata/http_advent.perldancer.org_2018_19 view on Meta::CPAN
writing our own Log4perl plugin for Dancer2, we expanded our search beyond metacpan, and were
rewarded in doing so.</p>
<p>We stumbled across a project from Ryan Larscheidt and Jon Miner at the University of Wisconsin.
They wrote a Log4perl plugin for Dancer2 with the intent of releasing it, but as their priorities
and projects shifted, it never made its way to CPAN. I used to go to MadMongers (Madison Perl Mongers),
so before long, I was able to track them down and they gave me their blessing to release it.</p>
<p>A little packaging and a few tests later, <code>Dancer2::Logger::Log4perl</code> was on its way to CPAN!</p>
<h2><a name="configuration"></a>Configuration</h2>
<p>First, we need to create a basic Log4perl configuration. Create a new Dancer2 application (I'll call
mine <code>TestLog4perl</code>), and in the application directory create a <i>log4perl.conf</i> file with the following:</p>
view release on metacpan or search on metacpan
Acme-Can't-0.01/t/cannot.t view on Meta::CPAN
is( $mod->can't('foo'), 0, 'module can foo' );
is( $mod->can't('bar'), 0, 'module can bar' );
is( $mod->can't('baz'), 1, 'module can NOT baz' );
package Some::Module;
sub new { return bless {}, 'Some::Module' }
sub foo {}
sub bar {}
view release on metacpan or search on metacpan
lib/Acme/Cat/Schroedinger.pm view on Meta::CPAN
'${}' => sub {return ($_[0]=$coopRef // \0);}, # todo: include temperament
'*{}' => sub {return ($_[0]=$coopRef // \*{''});}, # todo: include temperament
);
return $overload{$attr};
};
bless $self, $class;
}
=head1 SYNOPSIS
A newly-created Acme::Cat::Schroedinger could be anything. It could be cooperative, and be anything you want it to be. It could be perverse and will never be what you want it to be. Or it could behave like the original Schroedinger's Cat and its beha...
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
$args{path} =~ s!::!/!g;
}
$args{file} ||= "$args{base}/$args{prefix}/$args{path}.pm";
$args{wrote} = 0;
bless( \%args, $class );
}
sub call {
my ($self, $method) = @_;
my $obj = $self->load($method) or return;
view release on metacpan or search on metacpan
lib/Acme/Chef.pm view on Meta::CPAN
my $code = shift;
defined $code or croak "compile takes one argument: a code string.";
my $self = {};
bless $self => $class;
my @paragraphs = $self->_get_paragraphs( $code );
my @recipes = $self->_paragraphsToRecipes(\@paragraphs);
$_->compile() foreach @recipes;
lib/Acme/Chef.pm view on Meta::CPAN
$dumper->Purity(1);
my $dump = $dumper->Dump();
if ($type =~ /^autorun$/) {
$dump = 'do{my ' . $dump . ' bless $self => "' . (__PACKAGE__) . '"; $self->execute();} ';
} else {
$dump = 'do{my ' . $dump . ' bless $self => "' . (__PACKAGE__) . '";} ';
}
return $dump;
}
view release on metacpan or search on metacpan
&& ($all || $enhanced{ref $_[0]})) {
# Strangely, it seems that one can dup an unopened file handle without
# warnings.
eval "open $count, '<&dead'";
my $ref = *{delete $Acme::Class::Std::{$count++}}{IO};
$_[0] = bless $ref, ref $_[0];
}
goto &Scalar::Util::refaddr;
}
{
$o = Foo->new;
use Data::Dumper;
print Dumper $o;
cannot handle ref type 15 at /usr/local/lib/perl5/5.8.8/i386-freebsd/Data/Dumper.pm line 179.
$VAR1 = bless( , 'Foo' );
=item Storable
package Kakroosh;
use Acme::Class::Std;
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
$args{path} =~ s!::!/!g;
}
$args{file} ||= "$args{base}/$args{prefix}/$args{path}.pm";
$args{wrote} = 0;
bless( \%args, $class );
}
sub call {
my ($self, $method) = @_;
my $obj = $self->load($method) or return;
view release on metacpan or search on metacpan
lib/Acme/Color/Rust.pm view on Meta::CPAN
$ffi->type('object(Acme::Color::Rust,u32)' => 'color');
$ffi->attach( new => ['string','u8','u8','u8'] => 'u32' => sub ($xsub, $class, $name, $r, $g, $bl) {
my $index = $xsub->($name, $r, $g, $bl);
bless \$index, $class;
});
$ffi->attach( name => ['color'] => 'string' );
$ffi->attach( red => ['color'] => 'u8' );
view release on metacpan or search on metacpan
lib/Acme/Colour.pm view on Meta::CPAN
sub new {
my ( $class, $colour ) = @_;
my $self = {};
bless $self, $class;
if ( defined $colour ) {
unless ( exists $r{$colour} ) {
throw Error::Simple("Colour $colour is unknown");
}
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
$args{path} = $args{name};
$args{path} =~ s!::!/!g;
}
$args{file} ||= "$args{base}/$args{prefix}/$args{path}.pm";
bless( \%args, $class );
}
sub call {
my ($self, $method) = @_;
my $obj = $self->load($method) or return;
view release on metacpan or search on metacpan
t/01basic.t view on Meta::CPAN
use Test::More tests => 1;
{
package Local::Foo;
sub create { bless [] => shift };
}
use Acme::Constructor::Pythonic
main => {
class => 'Local::Foo',
view release on metacpan or search on metacpan
inc/IO/Scalar.pm view on Meta::CPAN
#line 185
sub new {
my $proto = shift;
my $class = ref($proto) || $proto;
my $self = bless \do { local *FH }, $class;
tie *$self, $class, $self;
$self->open(@_); ### open on anonymous by default
$self;
}
sub DESTROY {
view release on metacpan or search on metacpan
lib/Acme/CorpusScrambler.pm view on Meta::CPAN
=cut
sub new {
my $class = shift;
bless {}, $class;
}
=head2 feed( $keyword => $corpus )
Feeds the $corpus to object, indexed by $keyword. The corpus is used latter as scrambling
view release on metacpan or search on metacpan
lib/Acme/Cow/Interpreter.pm view on Meta::CPAN
my $self = {};
# Bless the reference into an object.
bless $self, $class;
# Initialize it. The return value of init() is the object itself.
$self -> init();
}
lib/Acme/Cow/Interpreter.pm view on Meta::CPAN
}
}
# Bless the copy into an object.
bless $copy, $class;
}
=pod
=item parse_string( STRING )
view release on metacpan or search on metacpan
$x = new Acme::Cow(File => 'file.cow');
=item Returns
A blessed reference to an C<Acme::Cow>.
=back
=cut
el => 'o',
er => 'o',
U => ' ',
%args,
};
bless $self, $class;
}
=pod
=head2 over
view release on metacpan or search on metacpan
lib/Acme/Crap.pm view on Meta::CPAN
fallback => 1,
);
sub import {
overload::constant q => sub { my $val = $_[1]; bless \$val, 'Acme::Crap' };
no strict qw( refs );
*{caller().'::crap'} = sub {
local $Acme::Crap::no_negation = 1;
@_ = map {"$_"} @_;
lib/Acme/Crap.pm view on Meta::CPAN
package Acme::Crap::Negated;
sub new {
my ($class, $val) = @_;
bless { val => $val, degree => 1 }, $class;
}
sub value {
my ($self) = @_;
if ($Acme::Crap::no_negation) {