view release on metacpan or search on metacpan
examples/langford/Langford.pm view on Meta::CPAN
next if $value == 1 && $pos + 2 > $n;
push @{$self->{row_data_}}, { value => $value, left_pos => $pos };
$self->{problem_}->add_row([$value - 1, $n + $pos, $n + $pos + $value + 1]);
}
}
return bless $self, $class;
}
sub problem {
my ($self) = @_;
return $self->{problem_};
view release on metacpan or search on metacpan
const pi => 3.14, ten => 10;
package Foo;
use Alias;
sub new { bless {foo => 1, _bar => [2, 3]}, $_[0] }
sub a_method {
my $s = attr shift;
# $foo, @_bar are now local aliases for
# $_[0]{foo}, @{$_[0]{_bar}} etc.
}
user-supplied names. Values that are references will get dereferenced into
their base types. This means that a value of C<[1,2,3]> with a name of
"foo" will be made available as C<@foo>, not C<$foo>.
The exception to this rule is the default behavior of the C<attr> function,
which will not dereference values which are blessed references (aka
objects). See L<$Alias::Deref> for how to change this default behavior.
=head2 Functions
=over 4
=item attr
Given a hash reference, aliases the values of the hash to the names that
correspond to the keys. It always returns the supplied value. The aliases
are local to the enclosing block. If any of the values are unblessed
references, they are available as their dereferenced types. Thus the action
is similar to saying:
alias %{$_[0]}
etc., without actually declaring the attributes).
=item $Alias::Deref
Controls the implicit dereferencing behavior of C<attr>. If it is set to
"" or 0, C<attr> will not dereference blessed references. If it is a true
value (anything but "", 0, or a CODE reference), all references will be
made available as their dereferenced types, including values that may be
objects. The default is "".
This option can be used as a filter if it is set to a CODE reference, in
# hash/object attributes
package Foo;
use Alias;
sub new {
bless
{ foo => 1,
bar => [2,3],
buz => { a => 4},
privmeth => sub { "private" },
easymeth => sub { die "to recurse or to die, is the question" },
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
corpus/libpalindrome/ltmain.sh view on Meta::CPAN
func_verbose "filter symbol list for '$libname.la' to tag DATA exports"
# FIXME: $output_objdir/$libname.filter potentially contains lots of
# 's' commands, which not all seds can handle. GNU sed should be fine
# though. Also, the filter scales superlinearly with the number of
# global variables. join(1) would be nice here, but unfortunately
# isn't a blessed tool.
$opt_dry_run || $SED -e '/[ ,]DATA/!d;s,\(.*\)\([ \,].*\),s|^\1$|\1\2|,' < $export_symbols > $output_objdir/$libname.filter
func_append delfiles " $export_symbols $output_objdir/$libname.filter"
export_symbols=$output_objdir/$libname.def
$opt_dry_run || $SED -f $output_objdir/$libname.filter < $orig_export_symbols > $export_symbols
fi
corpus/libpalindrome/ltmain.sh view on Meta::CPAN
func_verbose "filter symbol list for '$libname.la' to tag DATA exports"
# FIXME: $output_objdir/$libname.filter potentially contains lots of
# 's' commands, which not all seds can handle. GNU sed should be fine
# though. Also, the filter scales superlinearly with the number of
# global variables. join(1) would be nice here, but unfortunately
# isn't a blessed tool.
$opt_dry_run || $SED -e '/[ ,]DATA/!d;s,\(.*\)\([ \,].*\),s|^\1$|\1\2|,' < $export_symbols > $output_objdir/$libname.filter
func_append delfiles " $export_symbols $output_objdir/$libname.filter"
export_symbols=$output_objdir/$libname.def
$opt_dry_run || $SED -f $output_objdir/$libname.filter < $orig_export_symbols > $export_symbols
fi
view release on metacpan or search on metacpan
lib/Alien/Base/ModuleBuild/Cabinet.pm view on Meta::CPAN
sub new {
my $class = shift;
my $self = ref $_[0] ? shift : { @_ };
bless $self, $class;
return $self;
}
sub files { shift->{files} }
view release on metacpan or search on metacpan
corpus/lib/Alien/Foo2/ConfigData.pm view on Meta::CPAN
'install_type' => 'share',
'msys' => 0,
'name' => 'libfoo2',
'original_prefix' => '/home/user/.cpanm/work/1456299506.4021/Alien-Foo2-0.12/blib/lib/auto/share/dist/Alien-Foo2',
'pkgconfig' => {
'_manual' => bless( {
'keywords' => {
'Cflags' => '-I${pcfiledir}/lib/libfoo2-3.2.1/include',
'Libs' => '-L${pcfiledir}/lib -lfoo2',
'Version' => ''
},
'package' => 'libfoo2',
'vars' => {
'pcfiledir' => '/home/user/.cpanm/work/1456299506.4021/Alien-Foo2-0.12/blib/lib/auto/share/dist/Alien-Foo2'
}
}, 'Alien::Base::PkgConfig' ),
'libfoo2' => bless( {
'keywords' => {
'Cflags' => '-I${includedir}',
'Description' => 'Library supporting Foreign Function Interfaces',
'Libs' => '-L${toolexeclibdir} -lfoo2',
'Name' => 'libfoo2',
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
corpus/lib/Alien/Foo.pm view on Meta::CPAN
package Alien::Foo;
sub new { bless {}, __PACKAGE__ }
sub cflags {}
sub libs {}
sub dynamic_libs {}
sub bin_dir { '/foo/bar/baz' }
view release on metacpan or search on metacpan
lib/Alien/CSFML.pm view on Meta::CPAN
use File::ShareDir qw[dist_dir];
use File::Spec::Functions qw[catdir canonpath];
sub new {
my ( $pkg, %overrides ) = @_;
return bless { 'C++' => $overrides{'C++'} }, $pkg;
}
sub include_dirs {
my ($s) = @_;
return (
view release on metacpan or search on metacpan
lib/Alien/CodePress.pm view on Meta::CPAN
sub new {
my ($class, $options_ref) = @_;
my $self = { };
bless $self, $class;
$self->init_properties();
$self->set_properties($options_ref);
return $self;
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/Alien/FFTW3.pm view on Meta::CPAN
our $_valid_precisions = {f=>['f'],d=>[''],l=>['l'],q=>['q']};
our $_our_precisions = join(", ",sort keys %$_valid_precisions);
sub precision {
shift if(($_[0]//"") =~ m/Alien/ ); # discard package name or blessed ref on call
my $precision = shift || 'fdlq';
unless(ref($precision)) {
$precision = [ split m//, $precision ];
lib/Alien/FFTW3.pm view on Meta::CPAN
Returns the cflags compiler flags required for the specified precision, or for all of 'em.
=cut
sub cflags {
shift if(($_[0]//"") =~ m/Alien/ ); # discard package name or blessed ref on call
my $precision = shift;
my $h = precision($precision);
die "No fftw package found!" unless($h);
view release on metacpan or search on metacpan
lib/Alien/FLTK.pm view on Meta::CPAN
use lib '../../blib/lib', '../blib/lib', 'blib/lib', 'lib';
sub new {
my ( $class, $overrides ) = @_; # XXX - overrides are unsupported
return
bless decode_json(
read_file( canonpath( catdir( dist_dir('Alien-FLTK'), 'config.json' ) ) ) ), shift;
}
sub include_dirs {
my ($self) = @_;
view release on metacpan or search on metacpan
lib/Alien/InteractiveBrokers.pm view on Meta::CPAN
# Set up a default object
my $self = {};
# Instantiate the object. sort of.
bless( $self, $class );
# Direct the global cache to us (see note above)
$CACHE = $self;
return( $self );
lib/Alien/InteractiveBrokers.pm view on Meta::CPAN
Create a new Alien::InteractiveBrokers object for querying the installed
configuration.
B<ARGUMENTS:> None.
B<RETURNS:> blessed C<$object>, or C<undef> on failure.
=head1 METHODS
=head2 path()
view release on metacpan or search on metacpan
src/judy-1.0.5/autom4te.cache/requests view on Meta::CPAN
# This file was generated by Autom4te Wed Jan 17 19:57:31 PST 2007.
# It contains the lists of macros which have been traced.
# It can be safely removed.
@request = (
bless( [
'0',
1,
[
'/usr/share/autoconf'
],
src/judy-1.0.5/autom4te.cache/requests view on Meta::CPAN
'AC_PATH_MAGIC' => 1,
'_AC_AM_CONFIG_HEADER_HOOK' => 1,
'AM_MAKE_INCLUDE' => 1
}
], 'Autom4te::Request' ),
bless( [
'1',
1,
[
'/usr/share/autoconf'
],
view release on metacpan or search on metacpan
lib/Alien/LibJIT.pm view on Meta::CPAN
sub new {
my $class = shift;
Carp::croak('You must call this as a class method') if ref($class);
my $self = bless {
base_dir => File::Spec->catdir(
File::ShareDir::dist_dir('Alien-LibJIT'),
'libjit'
),
} => $class;
view release on metacpan or search on metacpan
lib/Alien/Libarchive/Installer.pm view on Meta::CPAN
my($v,$d,$f) = File::Spec->splitpath($_);
$dir = [$v,File::Spec->splitdir($d)];
$f;
} $alien->dlls;
my $build = bless {
cflags => [$alien->cflags],
libs => [$alien->libs],
dll_dir => $dir,
dlls => \@dlls,
prefix => File::Spec->rootdir,
lib/Alien/Libarchive/Installer.pm view on Meta::CPAN
$build->test_ffi || die $build->error if $options{test} =~ /^(ffi|both)$/;
};
return $build unless $@;
}
my $build = bless {
cflags => _try_pkg_config(undef, 'cflags', '', ''),
libs => _try_pkg_config(undef, 'libs', '-larchive', ''),
}, $class;
if($options{test} =~ /^(ffi|both)$/)
lib/Alien/Libarchive/Installer.pm view on Meta::CPAN
open my $fh, '>', $pcfile;
print $fh @content;
close $fh;
};
my $build = bless {
cflags => _try_pkg_config($pkg_config_dir, 'cflags', '-I' . File::Spec->catdir($prefix, 'include'), '--static'),
libs => _try_pkg_config($pkg_config_dir, 'libs', '-L' . File::Spec->catdir($prefix, 'lib'), '--static'),
prefix => $prefix,
dll_dir => [ 'dll' ],
dlls => do {
view release on metacpan or search on metacpan
inc/Alien/LZO/Installer.pm view on Meta::CPAN
unless $options{test} =~ /^(compile|ffi|both)$/;
if($options{alien} && eval q{ use Alien::LZO 0.01; 1 })
{
my $alien = Alien::LZO->new;
my $build = bless {
cflags => $alien->cflags,
libs => $alien->libs,
}, $class;
return $build if $options{test} =~ /^(compile|both)$/ && $build->test_compile_run;
return $build if $options{test} =~ /^(ffi|both)$/ && $build->test_compile_run;
}
my $build = bless {
cflags => [],
libs => ['-llzo2'],
}, $class;
$build->test_compile_run || die $build->error if $options{test} =~ /^(compile|both)$/;
inc/Alien/LZO/Installer.pm view on Meta::CPAN
}
}
};
}
my $build = bless {
cflags => ['-I' . _catdir($prefix, 'include')],
libs => ['-L' . _catdir($prefix, 'lib'), '-llzo2'],
prefix => $prefix,
dll_dir => [ 'dll' ],
dlls => do {
view release on metacpan or search on metacpan
lib/Alien/Libarchive.pm view on Meta::CPAN
sub new
{
my($class) = @_;
bless {}, $class;
}
sub cflags
{
wantarray ## no critic (Community::Wantarray)
view release on metacpan or search on metacpan
lib/Alien/bz2.pm view on Meta::CPAN
sub new
{
my($class) = @_;
bless {}, $class;
}
sub cflags
{
view release on metacpan or search on metacpan
lib/Alien/Libjio.pm view on Meta::CPAN
my $self = {
installed => 0,
};
bless($self, $class);
$self->_try_pkg_config()
or $self->_try_liblist()
or delete($self->{method});
view release on metacpan or search on metacpan
lib/Alien/Lua.pm view on Meta::CPAN
sub new {
my ($class, %opt) = @_;
my $luajit = delete $opt{luajit};
my $self = $class->SUPER::new(%opt);
bless($self, __PACKAGE__);
if ($luajit && $CanUseLuaJIT) {
$self->{alien_luajit} = Alien::LuaJIT->new(%opt);
}
return $self;
}
view release on metacpan or search on metacpan
lib/Alien/MSYS2.pm view on Meta::CPAN
sub new
{
my($class) = @_;
bless {}, $class;
}
{
view release on metacpan or search on metacpan
lib/Alien/Packages.pm view on Meta::CPAN
=cut
sub new
{
my ( $class, %attrs ) = @_;
my $self = bless( { plugins => [], }, $class );
my $only_loaded = delete $attrs{only_loaded};
if ($only_loaded)
{
view release on metacpan or search on metacpan
inc/inc_Archive-Extract/Archive/Extract.pm view on Meta::CPAN
$ar =~ /.+?\.xz$/ ? XZ :
'';
}
bless $parsed, $class;
### don't know what type of file it is
### XXX this *has* to be an object call, not a package call
return $parsed->_error(loc("Cannot determine file type for '%1'",
$parsed->{archive} )) unless $parsed->{type};
view release on metacpan or search on metacpan
xt/podspell.t view on Meta::CPAN
prechecking
prepends
rebase
rebased
rebasing
reblesses
refactored
refactoring
rethrows
RT
runtime
xt/podspell.t view on Meta::CPAN
stacktrace
subclassable
subname
subtyping
TODO
unblessed
unexport
unimporting
Unported
unsets
unsettable
view release on metacpan or search on metacpan
corpus/autoheck-libpalindrome/ltmain.sh view on Meta::CPAN
func_verbose "filter symbol list for '$libname.la' to tag DATA exports"
# FIXME: $output_objdir/$libname.filter potentially contains lots of
# 's' commands, which not all seds can handle. GNU sed should be fine
# though. Also, the filter scales superlinearly with the number of
# global variables. join(1) would be nice here, but unfortunately
# isn't a blessed tool.
$opt_dry_run || $SED -e '/[ ,]DATA/!d;s,\(.*\)\([ \,].*\),s|^\1$|\1\2|,' < $export_symbols > $output_objdir/$libname.filter
func_append delfiles " $export_symbols $output_objdir/$libname.filter"
export_symbols=$output_objdir/$libname.def
$opt_dry_run || $SED -f $output_objdir/$libname.filter < $orig_export_symbols > $export_symbols
fi
corpus/autoheck-libpalindrome/ltmain.sh view on Meta::CPAN
func_verbose "filter symbol list for '$libname.la' to tag DATA exports"
# FIXME: $output_objdir/$libname.filter potentially contains lots of
# 's' commands, which not all seds can handle. GNU sed should be fine
# though. Also, the filter scales superlinearly with the number of
# global variables. join(1) would be nice here, but unfortunately
# isn't a blessed tool.
$opt_dry_run || $SED -e '/[ ,]DATA/!d;s,\(.*\)\([ \,].*\),s|^\1$|\1\2|,' < $export_symbols > $output_objdir/$libname.filter
func_append delfiles " $export_symbols $output_objdir/$libname.filter"
export_symbols=$output_objdir/$libname.def
$opt_dry_run || $SED -f $output_objdir/$libname.filter < $orig_export_symbols > $export_symbols
fi
view release on metacpan or search on metacpan
patches/SDL-1.2.14-ltmain_sh view on Meta::CPAN
func_verbose "filter symbol list for \`$libname.la' to tag DATA exports"
# FIXME: $output_objdir/$libname.filter potentially contains lots of
# 's' commands which not all seds can handle. GNU sed should be fine
# though. Also, the filter scales superlinearly with the number of
# global variables. join(1) would be nice here, but unfortunately
# isn't a blessed tool.
$opt_dry_run || $SED -e '/[ ,]DATA/!d;s,\(.*\)\([ \,].*\),s|^\1$|\1\2|,' < $export_symbols > $output_objdir/$libname.filter
func_append delfiles " $export_symbols $output_objdir/$libname.filter"
export_symbols=$output_objdir/$libname.def
$opt_dry_run || $SED -f $output_objdir/$libname.filter < $orig_export_symbols > $export_symbols
fi
patches/SDL-1.2.14-ltmain_sh view on Meta::CPAN
func_verbose "filter symbol list for \`$libname.la' to tag DATA exports"
# FIXME: $output_objdir/$libname.filter potentially contains lots of
# 's' commands which not all seds can handle. GNU sed should be fine
# though. Also, the filter scales superlinearly with the number of
# global variables. join(1) would be nice here, but unfortunately
# isn't a blessed tool.
$opt_dry_run || $SED -e '/[ ,]DATA/!d;s,\(.*\)\([ \,].*\),s|^\1$|\1\2|,' < $export_symbols > $output_objdir/$libname.filter
func_append delfiles " $export_symbols $output_objdir/$libname.filter"
export_symbols=$output_objdir/$libname.def
$opt_dry_run || $SED -f $output_objdir/$libname.filter < $orig_export_symbols > $export_symbols
fi