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
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
view release on metacpan or search on metacpan
src/subversion/subversion/bindings/swig/perl/native/Client.pm view on Meta::CPAN
=cut
sub new
{
my $class = shift;
my $self = bless {}, $class;
my %args = @_;
$self->{'ctx'} = SVN::_Client::svn_client_create_context();
if (defined($args{'auth'}))
view release on metacpan or search on metacpan
inc/File/Fetch/Item.pm view on Meta::CPAN
my $class = shift;
my %hash = @_;
my $args = check( $Tmpl, \%hash ) or return;
bless $args, $class;
if( lc($args->scheme) ne 'file' and not $args->host ) {
warn "Hostname required when fetching from '".$args->scheme."'\n";
return;
}
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
lib/Alien/Taco.pm view on Meta::CPAN
=cut
package Alien::Taco;
use IPC::Open2;
use Scalar::Util qw/blessed/;
use Alien::Taco::Object;
use Alien::Taco::Transport;
use strict;
lib/Alien/Taco.pm view on Meta::CPAN
}
my ($serv_in, $serv_out);
my $pid = open2($serv_out, $serv_in, $serv);
my $self = bless {}, $class;
$self->{'xp'} = $self->_construct_transport($serv_out, $serv_in);
return $self;
}
view release on metacpan or search on metacpan
inc/inc_Module-Build/Module/Build.pm view on Meta::CPAN
=item *
There are several architectural decisions in C<MakeMaker> that make it
very difficult to customize its behavior. For instance, when using
C<MakeMaker> you do C<use ExtUtils::MakeMaker>, but the object created in
C<WriteMakefile()> is actually blessed into a package name that's
created on the fly, so you can't simply subclass
C<ExtUtils::MakeMaker>. There is a workaround C<MY> package that lets
you override certain C<MakeMaker> methods, but only certain explicitly
preselected (by C<MakeMaker>) methods can be overridden. Also, the method
of customization is very crude: you have to modify a string containing
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
} ## end sub read
# 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;