Result:
found more than 780 distributions - search limited to the first 2001 files matching your query
( run in 1.130 )
App-GitHooks-Plugin-RubyCompile
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-GitHooks-Plugin-ValidateChangelogFormat
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-GitHooks-Plugin-ValidatePODFormat
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-GitHooks-Plugin-VersionTagsRequireChangelog
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-GitWorkspaceScanner
view release on metacpan or search on metacpan
$self->recursive_test_files(1);
$self->test_files( 't', 'xt' )
if $ENV{'RELEASE_TESTING'};
return $self->SUPER::ACTION_test();
}
# Force running extended tests when testing the distribution.
sub ACTION_disttest
{
my ( $self ) = @_;
local $ENV{ RELEASE_TESTING } = 1;
return $self->SUPER::ACTION_disttest();
}
|,
);
my $builder = $class->new(
App-Glacier
view release on metacpan or search on metacpan
lib/App/Glacier.pm view on Meta::CPAN
}
sub new {
my ($class, $argref) = shift;
my $self = $class->SUPER::new(
$argref,
optmap => {
'config-file|f=s' => 'config',
'account=s' => 'account',
'region=s' => 'region'
App-Greple-subst
view release on metacpan or search on metacpan
lib/App/Greple/subst/Dict.pm view on Meta::CPAN
my $class = shift;
if (@_ < 2) {
return bless {}, $class;
}
my($pattern, $correct) = splice @_, 0, 2;
my $obj = $class->SUPER::new($pattern, @_);
$obj->correct($correct);
$obj;
}
sub correct {
lib/App/Greple/subst/Dict.pm view on Meta::CPAN
}
sub new_comment {
my $class = shift;
my $comment = shift;
my $obj = $class->SUPER::new();
$obj->comment($comment);
$obj;
}
sub comment {
App-Guiio
view release on metacpan or search on metacpan
sub ACTION_author_test
{
my $self = shift;
local $self->{properties}{test_files} = 'xt/author/*.t' ;
$self->SUPER::ACTION_test();
}
sub ACTION_build
{
my $self = shift;
EOV
close VERSION ;
}
$self->SUPER::ACTION_build(@_);
}
sub ACTION_dist
{
my $self = shift;
{
print "git not found, 'Changes' will not be generated from git log!\n" ;
}
}
$self->SUPER::ACTION_test() ;
#~ $self->ACTION_author_test() ;
$self->SUPER::ACTION_dist();
};
EOC
App-HTTP_Proxy_IMP
view release on metacpan or search on metacpan
examples/DelayRequest.pm view on Meta::CPAN
sub RTYPES { ( IMP_PASS ) }
sub new_analyzer {
my ($class,%args) = @_;
my $self = $class->SUPER::new_analyzer(%args);
$self->run_callback(
# we don't need to look at response
[ IMP_PASS,1,IMP_MAXOFFSET ],
);
return $self;
}
sub validate_cfg {
my ($class,%cfg) = @_;
delete $cfg{delay};
return $class->SUPER::validate_cfg(%cfg);
}
sub data {
my ($self,$dir,$data,$offset,$type) = @_;
if ( $dir == 0 # request
App-HistHub
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
# This line is here to convince "autouse" into believing we are autousable.
sub can {
($_[1] eq 'import' and caller()->isa('autouse'))
? \&Exporter::import # pacify autouse's equality test
: $_[0]->SUPER::can($_[1]) # normal case
}
# TODO
#
# Exported functions like field and super should be hidden so as not to
App-Ikachan
view release on metacpan or search on metacpan
inc/Pod/Markdown.pm view on Meta::CPAN
use parent qw(Pod::Parser);
use Pod::ParseLink (); # core
sub initialize {
my $self = shift;
$self->SUPER::initialize(@_);
$self->_private;
$self;
}
sub _private {
App-Ikaros
view release on metacpan or search on metacpan
lib/App/Ikaros.pm view on Meta::CPAN
config => $options->{config},
config_type => $options->{config_type},
config_options => $options->{config_options}
})->load;
my $ikaros = $class->SUPER::new({
config => $loaded_conf,
hosts => [],
verbose => $options->{verbose},
enable_profile => $options->{enable_profile},
output_filename => $options->{output_filename}
App-Info
view release on metacpan or search on metacpan
lib/App/Info.pm view on Meta::CPAN
Most often, such major data points will be sought in the object constructor.
Here's an example:
sub new {
# Construct the object so that handlers will work properly.
my $self = shift->SUPER::new(@_);
# Try to find the executable.
$self->info("Searching for executable");
if (my $exe = $util->first_exe('/bin/myapp', '/usr/bin/myapp')) {
# Confirm it.
lib/App/Info.pm view on Meta::CPAN
Thus the C<confirm()> event gives the user the chance to change the value if
the confirm event is handled.
The final thing to note about this constructor is the first line:
my $self = shift->SUPER::new(@_);
The first thing an App::Info subclass should do is execute this line to allow
the super class to construct the object first. Doing so allows any event
handling arguments to set up the event handlers, so that when we call
C<confirm()> or C<unknown()> the event will be handled as the client expects.
lib/App/Info.pm view on Meta::CPAN
alt_paths => \@paths );
Then, to retrieve these paths inside our C<new()> constructor, all we need do
is access them directly from the object:
my $self = shift->SUPER::new(@_);
my $alt_paths = $self->{alt_paths};
=head2 Subclassing Guidelines
To summarize, here are some guidelines for subclassing App::Info.
lib/App/Info.pm view on Meta::CPAN
Always subclass an App::Info category subclass. This will help to keep the
App::Info name space well-organized. New categories can be added as needed.
=item *
When you create the C<new()> constructor, always call C<SUPER::new(@_)>. This
ensures that the event handling methods methods defined by the App::Info base
classes (e.g., C<error()>) will work properly.
=item *
App-JESP
view release on metacpan or search on metacpan
lib/App/JESP/Cmd.pm view on Meta::CPAN
return (
[ "verbose|v", "log additional output" ],
[ "lib-inc|I=s@", "additional \@INC dirs", {
callbacks => { 'always fine' => sub { unshift @INC, @{$_[0]}; } }
} ],
$self->SUPER::global_opt_spec,
);
}
=head2 execute_command
lib/App/JESP/Cmd.pm view on Meta::CPAN
Log::Any::Adapter->set( 'Stdout' , log_level => 'debug' );
}else{
Log::Any::Adapter->set( 'Stdout' , log_level => 'info' );
}
return $self->SUPER::execute_command( $cmd , $opts , @args );
}
1;
App-JobLog
view release on metacpan or search on metacpan
lib/App/JobLog/Log/Event.pm view on Meta::CPAN
}
sub cmp {
my ( $self, $other ) = @_;
my $comparison = $self->SUPER::cmp($other);
unless ($comparison) {
if ( $other->isa(__PACKAGE__) ) {
if ( $self->is_closed ) {
if ( $other->is_closed ) {
return DateTime->compare( $self->end, $other->end );
App-KGB
view release on metacpan or search on metacpan
lib/App/KGB/Change.pm view on Meta::CPAN
=cut
sub new {
my $class = shift;
my $self = $class->SUPER::new();
my $h = shift;
if ( ref($h) ) {
defined( $self->action( delete $h->{action} ) )
or confess "'action' is required";
App-Koyomi
view release on metacpan or search on metacpan
code => q{
sub ACTION_test_libs {
my $self = shift;
local @INC = @INC;
unshift @INC, 't/lib';
$self->SUPER::ACTION_test(@_);
}
},
)->new(%args);
$builder->create_build_script();
App-Kritika
view release on metacpan or search on metacpan
kritika.fatpack view on Meta::CPAN
$fatpacked{"File/HomeDir.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'FILE_HOMEDIR';
package File::HomeDir;use 5.00503;use strict;use Carp ();use Config ();use File::Spec ();use File::Which ();use vars qw{$VERSION @ISA @EXPORT @EXPORT_OK $IMPLEMENTED_BY};BEGIN {$VERSION='0.05';require Exporter;@ISA=qw{Exporter};@EXPORT=qw{home};@EX...
FILE_HOMEDIR
$fatpacked{"File/HomeDir/Darwin.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'FILE_HOMEDIR_DARWIN';
package File::HomeDir::Darwin;use 5.00503;use strict;use Cwd ();use Carp ();use File::HomeDir::Unix ();use vars qw{$VERSION @ISA};BEGIN {$VERSION='0.05';@ISA='File::HomeDir::Unix'}sub my_home {my$class=shift;if (exists$ENV{HOME}and defined$ENV{HOME...
FILE_HOMEDIR_DARWIN
$fatpacked{"File/HomeDir/Darwin/Carbon.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'FILE_HOMEDIR_DARWIN_CARBON';
package File::HomeDir::Darwin::Carbon;use 5.00503;use strict;use Cwd ();use Carp ();use File::HomeDir::Darwin ();use vars qw{$VERSION @ISA};BEGIN {$VERSION='0.05';@ISA='File::HomeDir::Darwin';local $@;eval "use prefork 'Mac::Files'"}sub my_home {my...
FILE_HOMEDIR_DARWIN_CARBON
$fatpacked{"File/HomeDir/Darwin/Cocoa.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'FILE_HOMEDIR_DARWIN_COCOA';
package File::HomeDir::Darwin::Cocoa;use 5.00503;use strict;use Cwd ();use Carp ();use File::HomeDir::Darwin ();use vars qw{$VERSION @ISA};BEGIN {$VERSION='0.05';@ISA='File::HomeDir::Darwin';local $@;eval "use prefork 'Mac::SystemDirectory'"}sub my...
FILE_HOMEDIR_DARWIN_COCOA
$fatpacked{"File/HomeDir/Driver.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'FILE_HOMEDIR_DRIVER';
package File::HomeDir::Driver;use 5.00503;use strict;use Carp ();use vars qw{$VERSION};BEGIN {$VERSION='0.05'}sub my_home {Carp::croak("$_[0] does not implement compulsory method $_[1]")}1;
FILE_HOMEDIR_DRIVER
kritika.fatpack view on Meta::CPAN
$fatpacked{"Test/Deep/Array.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_DEEP_ARRAY';
use strict;use warnings;package Test::Deep::Array;use Test::Deep::Ref;sub init {my$self=shift;my$val=shift;$self->{val}=$val}sub descend {my$self=shift;my$got=shift;my$exp=$self->{val};return 0 unless Test::Deep::descend($got,Test::Deep::arraylengt...
TEST_DEEP_ARRAY
$fatpacked{"Test/Deep/ArrayEach.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_DEEP_ARRAYEACH';
use strict;use warnings;package Test::Deep::ArrayEach;use Test::Deep::Cmp;use Scalar::Util ();sub init {my$self=shift;my$val=shift;$self->{val}=$val}sub descend {my$self=shift;my$got=shift;return unless ref$got && Scalar::Util::reftype($got)eq 'ARR...
TEST_DEEP_ARRAYEACH
$fatpacked{"Test/Deep/ArrayElementsOnly.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_DEEP_ARRAYELEMENTSONLY';
use strict;use warnings;package Test::Deep::ArrayElementsOnly;use Test::Deep::Ref;sub init {my$self=shift;my$val=shift;$self->{val}=$val}sub descend {my$self=shift;my$got=shift;my$exp=$self->{val};my$data=$self->data;for my$i (0..$#{$exp}){$data->{...
TEST_DEEP_ARRAYELEMENTSONLY
kritika.fatpack view on Meta::CPAN
$fatpacked{"Test/Deep/ArrayLengthOnly.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_DEEP_ARRAYLENGTHONLY';
use strict;use warnings;package Test::Deep::ArrayLengthOnly;use Test::Deep::Ref;sub init {my$self=shift;my$val=shift;$self->{val}=$val}sub descend {my$self=shift;my$got=shift;my$len=$self->{val};return @$got==$len}sub render_stack {my$self=shift;my...
TEST_DEEP_ARRAYLENGTHONLY
$fatpacked{"Test/Deep/Blessed.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_DEEP_BLESSED';
use strict;use warnings;package Test::Deep::Blessed;use Test::Deep::Cmp;use Scalar::Util qw(blessed);sub init {my$self=shift;my$val=shift;$self->{val}=$val}sub descend {my$self=shift;my$got=shift;my$exp=$self->{val};my$blessed=blessed($got);return ...
TEST_DEEP_BLESSED
$fatpacked{"Test/Deep/Boolean.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_DEEP_BOOLEAN';
use strict;use warnings;package Test::Deep::Boolean;use Test::Deep::Cmp;sub init {my$self=shift;$self->{val}=shift()? 1 : 0}sub descend {my$self=shift;my$got=shift;return!($got xor $self->{val})}sub diag_message {my$self=shift;my$where=shift;return...
TEST_DEEP_BOOLEAN
kritika.fatpack view on Meta::CPAN
$error
EOM
TEST_DEEP_HASHKEYSONLY
$fatpacked{"Test/Deep/Ignore.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_DEEP_IGNORE';
use strict;use warnings;package Test::Deep::Ignore;use Test::Deep::Cmp;my$Singleton=__PACKAGE__->SUPER::new;sub new {return$Singleton}sub descend {return 1}1;
TEST_DEEP_IGNORE
$fatpacked{"Test/Deep/Isa.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_DEEP_ISA';
use strict;use warnings;package Test::Deep::Isa;use Test::Deep::Cmp;use Scalar::Util;sub init {my$self=shift;my$val=shift;$self->{val}=$val}sub descend {my$self=shift;my$got=shift;return Scalar::Util::blessed($got)? $got->isa($self->{val}): ref($go...
TEST_DEEP_ISA
$fatpacked{"Test/Deep/ListMethods.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_DEEP_LISTMETHODS';
use strict;use warnings;package Test::Deep::ListMethods;use base 'Test::Deep::Methods';sub call_method {my$self=shift;return [$self->SUPER::call_method(@_)]}sub render_stack {my$self=shift;my$var=$self->SUPER::render_stack(@_);return "[$var]"}1;
TEST_DEEP_LISTMETHODS
$fatpacked{"Test/Deep/MM.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_DEEP_MM';
use strict;use warnings;package Test::Deep::MM;sub import {my$self=shift;my ($pkg)=caller();my$mpkg=$pkg."::Methods";for my$attr (@_){if ($attr =~ /^[a-z]/){no strict 'refs';*{$mpkg."::$attr"}=\&{$attr}}else {my$get_name=$mpkg."::get$attr";my$set_n...
TEST_DEEP_MM
kritika.fatpack view on Meta::CPAN
expected : $exp
EOM
TEST_DEEP_NONE
$fatpacked{"Test/Deep/Number.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_DEEP_NUMBER';
use strict;use warnings;package Test::Deep::Number;use Test::Deep::Cmp;use Scalar::Util;sub init {my$self=shift;$self->{val}=shift(@_)+ 0;$self->{tolerance}=shift}sub descend {my$self=shift;my$got=shift;$self->data->{got_string}=$got;{no warnings '...
TEST_DEEP_NUMBER
$fatpacked{"Test/Deep/Obj.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_DEEP_OBJ';
use strict;use warnings;package Test::Deep::Obj;use Test::Deep::Cmp;use Scalar::Util;sub init {my$self=shift;my$val=shift;$self->{val}=$val}sub descend {my$self=shift;my$got=shift;return Scalar::Util::blessed($got)&& $got->isa($self->{val})}sub dia...
TEST_DEEP_OBJ
kritika.fatpack view on Meta::CPAN
$fatpacked{"Test/Deep/Ref.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_DEEP_REF';
use strict;use warnings;package Test::Deep::Ref;use Test::Deep::Cmp;use Scalar::Util qw(blessed);sub test_class {my$self=shift;my$got=shift;my$exp=$self->{val};if ($Test::Deep::Snobby){return Test::Deep::descend($got,Test::Deep::blessed(blessed($ex...
TEST_DEEP_REF
$fatpacked{"Test/Deep/RefType.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_DEEP_REFTYPE';
use strict;use warnings;package Test::Deep::RefType;use Test::Deep::Cmp;use Scalar::Util qw(reftype);sub init {my$self=shift;$self->{val}=shift}sub descend {my$self=shift;my$got=shift;my$exp=$self->{val};my$reftype=reftype($got);return Test::Deep::...
TEST_DEEP_REFTYPE
$fatpacked{"Test/Deep/Regexp.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_DEEP_REGEXP';
use strict;use warnings;package Test::Deep::Regexp;use Test::Deep::Cmp;use Test::Deep::RegexpMatches;sub init {my$self=shift;my$val=shift;$val=ref$val ? $val : qr/$val/;$self->{val}=$val;if (my$matches=shift){$self->{matches}=Test::Deep::regexpmatc...
TEST_DEEP_REGEXP
kritika.fatpack view on Meta::CPAN
$fatpacked{"Test/Deep/Shallow.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_DEEP_SHALLOW';
use strict;use warnings;package Test::Deep::Shallow;use Test::Deep::Cmp;use Scalar::Util qw(refaddr);sub init {my$self=shift;my$val=shift;$self->{val}=$val}sub descend {my$self=shift;my$got=shift;my$exp=$self->{val};my$ok;if (!defined$got and!defin...
TEST_DEEP_SHALLOW
$fatpacked{"Test/Deep/Stack.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_DEEP_STACK';
use strict;use warnings;package Test::Deep::Stack;use Carp qw(confess);use Scalar::Util;use Test::Deep::MM qw(new init Stack Arrow);sub init {my$self=shift;$self->SUPER::init(@_);$self->setStack([])unless$self->getStack}sub push {my$self=shift;push...
TEST_DEEP_STACK
$fatpacked{"Test/Deep/String.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_DEEP_STRING';
use strict;use warnings;package Test::Deep::String;use Test::Deep::Cmp;sub init {my$self=shift;$self->{val}=shift}sub descend {my$self=shift;my$got=shift()."";$self->data->{got}=$got;return$got eq $self->{val}}sub diag_message {my$self=shift;my$whe...
TEST_DEEP_STRING
App-LXC-Container
view release on metacpan or search on metacpan
lib/App/LXC/Container/Data/Debian.pm view on Meta::CPAN
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
sub content_default_mounts($$@)
{
local $_ = shift;
my @output =
($_->SUPER::content_default_mounts(@_),
'',
'# Debian:',
'/etc/debian_version');
return @output
}
lib/App/LXC/Container/Data/Debian.pm view on Meta::CPAN
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
sub depends_on($$$)
{
my ($self, $package, $include) = @_;
$self->SUPER::depends_on($package, $include);
return () unless $self->_dpkg_status($package);
my @packages = ();
local $_;
# outer loop over all possible dependencies:
lib/App/LXC/Container/Data/Debian.pm view on Meta::CPAN
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
use constant SEARCH => 'dpkg-query --search ';
sub package_of($$)
{
my ($self, $file) = @_;
$self->SUPER::package_of($file);
local $_;
# TODO: looks like pipe with redirection in shell never fails:
# uncoverable branch true
open my $dpkg, '-|', SEARCH . $file . ' 2>/dev/null'
or fatal('internal_error__1',
lib/App/LXC/Container/Data/Debian.pm view on Meta::CPAN
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
use constant LISTFILES => 'dpkg-query --listfiles ';
sub paths_of($$)
{
my ($self, $package) = @_;
$self->SUPER::paths_of($package);
local $_;
# TODO: Better approach to get main architecture?
foreach ('', ':amd64', ':i386')
{
my $pa = $package . $_;
App-MBUtiny
view release on metacpan or search on metacpan
lib/App/MBUtiny.pm view on Meta::CPAN
touch($self->{voidfile});
# Set DBI
$self->{_dbi} = undef;
return $self->SUPER::again;
}
sub excdir {shift->{excdir}}
sub objdir {shift->{objdir}}
sub rstdir {shift->{rstdir}}
sub getdbi {shift->{_dbi}}
App-MHFS
view release on metacpan or search on metacpan
lib/App/MHFS.pm view on Meta::CPAN
use strict; use warnings;
use feature 'say';
use parent -norequire, 'MHFS::EventLoop::Poll::Base';
sub new {
my $class = shift;
my $self = $class->SUPER::new(@_);
$self->{'evp_timer'} = MHFS::EventLoop::Poll::Linux::Timer->new($self);
return $self;
};
sub add_timer {
my ($self, $start) = @_;
shift @_;
if($self->SUPER::add_timer(@_) == 0) {
say __PACKAGE__.": add_timer, updating linux timer to $start";
$self->{'evp_timer'}->settime_linux($start, 0);
}
};
sub requeue_timers {
my $self = shift @_;
$self->SUPER::requeue_timers(@_);
my ($timers, $current_time) = @_;
if(@{$self->{'timers'}}) {
my $start = $self->{'timers'}[0]{'desired'} - $current_time;
say __PACKAGE__.": requeue_timers, updating linux timer to $start";
$self->{'evp_timer'}->settime_linux($start, 0);
lib/App/MHFS.pm view on Meta::CPAN
}
else {
print "\n";
}
$self->SUPER::do_poll($loop_interval, $poll);
}
};
1;
}
App-MP4Meta
view release on metacpan or search on metacpan
lib/App/MP4Meta/Film.pm view on Meta::CPAN
sub new {
my $class = shift;
my $args = shift;
my $self = $class->SUPER::new($args);
# Of course, its a movie, but this fixes the
# 'Home Video' problem in iTunes 11.
$self->{'media_type'} = 'Short Film';
App-MaMGal
view release on metacpan or search on metacpan
lib/App/MaMGal/Entry/Dir.pm view on Meta::CPAN
sub thumbnail_path { $_[0]->{base_name}.'/.mamgal-index.png' }
sub init
{
my $self = shift;
$self->SUPER::init(@_);
if ($self->{dir_name} eq '/' and ($self->{base_name} eq '/' or $self->{base_name} eq '.')) {
$self->{path_name} = '/';
$self->{base_name} = '/';
$self->{is_root} = 1;
} elsif (-e $self->child('.mamgal-root')) {
lib/App/MaMGal/Entry/Dir.pm view on Meta::CPAN
my $code = shift;
my $suffix = shift;
# TODO: this will be an issue when mamgal goes multi-threaded
my $tmp_name = $self->child('.mamgal-tmp');
my $full_name = $self->child($suffix);
$self->SUPER::_write_contents_to($code, $tmp_name, $full_name);
}
sub _side_length
{
my $self = shift;
lib/App/MaMGal/Entry/Dir.pm view on Meta::CPAN
sub containers
{
my $self = shift;
return if $self->is_root;
return $self->SUPER::containers(@_);
}
sub creation_time
{
my $self = shift;
lib/App/MaMGal/Entry/Dir.pm view on Meta::CPAN
}
$self->{cct} = [$oldest, $youngest];
return ($oldest, $youngest) if wantarray;
return $youngest;
}
return $self->SUPER::creation_time;
}
# Returns the most recent of:
# - this directory inode's modification time
# - all of interesting elements' content modification time
sub content_modification_time
{
my $self = shift;
my %opts = @_;
my $own = $self->SUPER::content_modification_time;
return $own if $opts{only_own};
my @elements;
if ($opts{consider_interesting_only}) {
@elements = $self->_all_interesting_elements;
} else {
App-Maisha
view release on metacpan or search on metacpan
lib/App/Maisha.pm view on Meta::CPAN
#----------------------------------------------------------------------------
# Public API
sub new {
my $class = shift;
my $self = $class->SUPER::new();
my $config = $self->load_config(@_);
$self->config($config);
$self->setup();
$self;
}
App-Math-Tutor
view release on metacpan or search on metacpan
inc/File-ShareDir-Install/File/ShareDir/Install.pm view on Meta::CPAN
# Build the postamble section
sub postamble
{
my $self = shift;
my @ret; # = $self->SUPER::postamble( @_ );
foreach my $def ( @DIRS ) {
push @ret, __postamble_share_dir( $self, $def );
}
return join "\n", @ret;
}
App-MatrixClient
view release on metacpan or search on metacpan
lib/App/MatrixClient/RoomTab.pm view on Meta::CPAN
{
my $self = shift;
if( $self->{typing_line} ) {
my @after = $self->{scroller}->pop;
$self->SUPER::append_line( @_ );
$self->{scroller}->push( @after );
}
else {
$self->SUPER::append_line( @_ );
}
}
sub set_typing_line
{
lib/App/MatrixClient/RoomTab.pm view on Meta::CPAN
$self->{scroller}->pop if delete $self->{typing_line};
# No timestamp
local $self->{timestamp_format};
$self->SUPER::append_line( $self->{typing_line} = $line ) if $line;
}
sub still_typing
{
my $self = shift;
App-MatrixTool
view release on metacpan or search on metacpan
lib/App/MatrixTool/Command/client.pm view on Meta::CPAN
my $self = shift;
my ( $opts, @args ) = @_;
$self->{$_} //= $opts->{$_} for qw( server user_id user_id_parameter );
return $self->SUPER::run( @args );
}
sub do_json
{
my $self = shift;
App-Milter-Limit
view release on metacpan or search on metacpan
lib/App/Milter/Limit.pm view on Meta::CPAN
sub _new_instance {
my ($class, $driver) = @_;
croak "usage: new(driver)" unless defined $driver;
my $self = $class->SUPER::_new_instance();
$self->init($driver);
return $self;
}
App-Mimosa
view release on metacpan or search on metacpan
lib/App/Mimosa/Schema/BCS.pm view on Meta::CPAN
sub deploy {
local $SIG{__WARN__} = sub {
return if $_[0] =~ /^Ignoring relationship/;
warn @_;
};
shift->SUPER::deploy(@_);
}
1;
__END__
App-Modular
view release on metacpan or search on metacpan
contrib/Events.mom view on Meta::CPAN
### Constructor ###
###################
sub module_init {
my ($type) = @_;
my $self = $type->SUPER::module_init($type);
$self->{'events'} = {};
return $self;
};
( run in 1.130 second using v1.01-cache-2.11-cpan-49f99fa48dc )