view release on metacpan or search on metacpan
lib/App/IMDBtop.pm view on Meta::CPAN
}
grep {
!$min_count || $cast_count{$_} > $min_count
} keys %cast_count) {
last if $nr && $cnt++ >= $nr;
say $cast_count{$_} . ' ' . $cast_cache{$_}
}
}
sub run {
GetOptions (
view release on metacpan or search on metacpan
if ( exists $actionmap{$action} ) {
$action = $actionmap{$action};
}
elsif ( length($action) <= 2 ) {
say STDERR "Note: Action shortcut '${action}' is unknown";
}
}
sub compute_hostlist {
for my $arg (@ARGV) {
$addendum = ' and its children (triggered)';
}
dispatch_command( $command, $host, $dt_start->epoch, $dt_end->epoch,
$fixed, 0, $duration, 'cli', $comment );
say "Scheduled host downtime for '$host'$addendum";
}
when ('recheck') {
dispatch_command( 'SCHEDULE_HOST_SVC_CHECKS', $host, time() );
say "Scheduled check of * on '$host'";
}
when ('force_recheck') {
dispatch_command( 'SCHEDULE_FORCED_HOST_SVC_CHECKS', $host,
time() );
say "Scheduled forced check of * on '$host'";
}
default {
say STDERR "Cannot run action '${action}' on a host"
}
}
}
sub action_on_service {
$duration = parse_duration($duration);
dispatch_command( 'SCHEDULE_SVC_DOWNTIME', $host, $service,
$dt_start->epoch, $dt_end->epoch,
$fixed, 0, $duration, 'cli', $comment );
say "Scheduled service downtime for '$service' on '$host'";
}
when ('recheck') {
dispatch_command( 'SCHEDULE_SVC_CHECK', $host, $service, time() );
say "Scheduled check of '$service' on '$host'";
}
when ('force_recheck') {
dispatch_command( 'SCHEDULE_FORCED_SVC_CHECK', $host, $service,
time() );
say "Scheduled forced check of '$service' on '$host'";
}
when ('Acknowledge') {
dispatch_command( 'ACKNOWLEDGE_SVC_PROBLEM', $host, $service, 2, 1,
1, 'cli', $action_args[0] );
say "Acknowledged $host/$service: $action_args[0]";
}
default {
say STDERR "Cannot run action '${action}' on a service"
}
}
}
GetOptions(
'm|match=s' => sub { $match_output = qr{$_[1]}i },
'o|overview' => \$overview,
's|service=s' => sub { push( @for_services, split( /,/, $_[1] ) ) },
'U|as-contact=s' => \$as_contact,
'v|verbose+' => \$verbosity,
'V|version' => sub { say "icli version $VERSION"; exit 0 },
'x|cut-mode=s' => sub { $cut_mode = substr( $_[1], 0, 1 ) },
'z|filter=s' => sub { push( @filters, split( /,/, $_[1] ) ) },
) or die("Please see perldoc -F $0 for help\n");
read_objects( $status_file, \$data, 'icinga status_file', '--status-file' );
elsif ( $list_type eq 'q' ) {
display_queue();
}
elsif ( $list_type eq 'd' ) {
if ( exists $data->{hostdowntimes} ) {
say "Host downtimes:";
if ( $verbosity == 1 ) {
printf( "%-25.25s %-20.20s %-20.20s\n", 'Host', 'start', 'stop' );
}
elsif ( $verbosity == 2 ) {
printf( "%-25.25s %-20.20s %-20.20s %-17.17s %s\n",
foreach my $downtime ( @{ $data->{hostdowntimes} } ) {
display_downtime($downtime);
}
}
else {
say "No host downtimes";
}
if ( exists $data->{servicedowntimes} ) {
say "\nService downtimes:";
if ( $verbosity == 1 ) {
printf( "%-25.25s %-25.25s %-20.20s %-20.20s\n",
'Host', 'Service', 'start', 'stop' );
}
elsif ( $verbosity == 2 ) {
foreach my $downtime ( @{ $data->{servicedowntimes} } ) {
display_downtime($downtime);
}
}
else {
say "\nNo service downtimes";
}
}
elsif ($action) {
foreach my $host (@list_hosts) {
view release on metacpan or search on metacpan
lib/App/ImageMagickUtils.pm view on Meta::CPAN
my @convert_args = (
$file,
);
my $downsized;
#say "D:downsize_to=<$downsize_to>, width=<$width>, height=<$height>, q=<$q>";
DOWNSIZE: {
last unless $downsize_to;
my $ratio;
my $shortest_side = $width > $height ? $height : $width;
last unless $shortest_side > $downsize_to;
view release on metacpan or search on metacpan
lib/App/Info.pm view on Meta::CPAN
Below I provide some examples demonstrating the use of the event methods.
These are meant to emphasize the contexts in which it's appropriate to use
them.
Let's start with the simplest, first. Let's say that to find the version
number for an application, you need to search a file for the relevant data.
Your App::Info concrete subclass might have a private method that handles this
work, and this method is the appropriate place to use the C<info()> and, if
necessary, C<error()> methods.
view release on metacpan or search on metacpan
my ($a, $b, $numparts) = @_;
$a = _restrict_to_possible( _converted_version($a, $numparts), $numparts);
$b = _restrict_to_possible( _converted_version($b, $numparts), $numparts);
if ( $a <= $b ) { return ($a..$b); }
return (reverse($b..$a)); # they asked for a list in reverse. make it ascending, and reverse it.
# or as Missy Elliott would say - flip it and reverse it.
}
############################################
# $num = _converted_version( $num, $numparts )
# returns the int $numparts converted to be as if it were sane and 1-based.
view release on metacpan or search on metacpan
lib/App/JobLog/Command/add.pm view on Meta::CPAN
$tags ? ( tags => $tags ) : (),
description => [ join ' ', @$args ],
time => now
);
if ( $is_ongoing && _different_day( $last->start, now ) ) {
say 'Event spans midnight. Perhaps you failed to close the last event.';
}
}
sub _different_day {
my ( $d1, $d2 ) = @_;
view release on metacpan or search on metacpan
lib/App/Jup/DSL.pm view on Meta::CPAN
sub link {
my $code = shift;
for my $link (keys %{$code}) {
say "Linking application $link";
}
}
1;
view release on metacpan or search on metacpan
lib/App/KeePass2.pm view on Meta::CPAN
sub _display_groups {
my ( $self, $groups, $level ) = @_;
for my $group (@$groups) {
my $key = $self->get_icon_key_from_id( $group->{icon} );
my $icon = $self->get_icon_char_from_key($key);
say sprintf( "%s%-3s%s", " " x $level, $icon, $group->{title} );
$self->_display_groups( $group->{groups}, $level + 1 );
}
}
1;
view release on metacpan or search on metacpan
lib/App/Kit.pm view on Meta::CPAN
BEGIN { $ENV{'App-Kit-Util-RW'} = 1; }; # must be set before App::Kit is use()d
use App::Kit;
then:
$app->log($test_logger); # e.g. say $test_logger stores what level and msg are called/given
… something that should call $app->log->info('This is a terrible info msg.') …
… test that $test_logger saw the expected levels and msgs …
The former might be desirable if you want to keep ENV clean, the latter for when you want to do/skip certain tests based on if it is true or not:
lib/App/Kit.pm view on Meta::CPAN
=head2 auto imports
=head3 strict and warnings enabled automatically
=head3 try/catch/finally imported automatically (unless you say not to)
L<Try::Tiny> is enabled automatically unless you pass import() “-no-try†flag (Yoda was right: there *is* -no-try!):
use App::Kit '-no-try';
view release on metacpan or search on metacpan
kritika.fatpack view on Meta::CPAN
$data
EOM
and it said
$error
EOM
it failed but it didn't say why.
EOM
TEST_DEEP_CODE
$fatpacked{"Test/Deep/Hash.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_DEEP_HASH';
use strict;use warnings;package Test::Deep::Hash;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;return 0 unless Test::Deep::descend($got,$se...
view release on metacpan or search on metacpan
lib/App/LDAP/Command/Export.pm view on Meta::CPAN
my ($self) = shift;
my $file = $self->extra_argv->[1];
if (! defined($file)) {
say "you must give the file name to export";
exit;
}
my @entries = ldap()->search(
base => $self->base // config()->{base},
view release on metacpan or search on metacpan
bin/lwp-online view on Meta::CPAN
#PODNAME: lwp-online
use LWP::Online qw( online );
if (online()) {
say "online";
}
else {
say "offline";
}
__END__
=pod
view release on metacpan or search on metacpan
lib/App/LXC/Container/Mounts.pm view on Meta::CPAN
$mounts->mount_point($path, REMOVE);
$mounts->merge_mount_points(12);
... foreach $mounts->sub_directories($path);
say $out $_ foreach $mounts->implicit_mount_lines('/');
$mounts->create_mount_points('/');
=head1 ABSTRACT
This module is used by L<App::LXC::Container::Update> to manage the
lib/App/LXC/Container/Mounts.pm view on Meta::CPAN
#########################################################################
=head2 B<implicit_mount_lines> - get list of implicit mount-lines for path
say $out $_ foreach $mounts->implicit_mount_lines('/');
=head3 parameters:
$path root path
view release on metacpan or search on metacpan
lib/App/LastStats.pm view on Meta::CPAN
'Valid formats are: ', join(', ', keys %$renderer), "\n";
}
}
method render_text {
say "* $_->{name} ($_->{playcount})" for @artists;
}
method render_json {
my $pos = 1;
lib/App/LastStats.pm view on Meta::CPAN
position => $pos++,
name => $_->{name},
count => $_->{playcount},
url => $_->{url}
} } @artists;
say JSON->new->canonical(1)->pretty(1)->encode(\@data);
}
method render_html {
my $html = "<ol>\n";
$html .= qq[ <li><a href="$_->{url}">$_->{name}</a> ($_->{playcount})</li>\n] for @artists;
$html .= "</ol>";
say $html;
}
method render {
my $method = $renderer->{$format};
$self->$method;
view release on metacpan or search on metacpan
lib/App/Lastmsg.pm view on Meta::CPAN
}
};
for my $folder (@{$config->{inbox}}) {
next unless -e $folder;
say STDERR "Scanning $folder (inbox)" if $ENV{LASTMSG_DEBUG};
my $folder = Email::Folder->new($folder);
while (my $msg = $folder->next_message) {
my ($from) = grep { /^from$/i } $msg->header_names;
$from = $msg->header_raw($from);
if ($ENV{LASTMSG_DEBUG}) {
my ($mid) = grep { /^message-id$/i } $msg->header_names;
say STDERR 'Processing ', $msg->header_raw($mid), " from $from";
}
$process_message->($msg, $from);
}
}
for my $folder (@{$config->{sent}}) {
next unless -e $folder;
say STDERR "Scanning $folder (sent)" if $ENV{LASTMSG_DEBUG};
my $folder = Email::Folder->new($folder);
while (my $msg = $folder->next_message) {
my @hdrs = grep { /^(?:to|cc|bcc)$/i } $msg->header_names;
my @people;
for my $hdr (@hdrs) {
@people = (@people, split /,/, $msg->header_raw($hdr));
}
if ($ENV{LASTMSG_DEBUG}) {
my ($mid) = grep { /^message-id$/i } $msg->header_names;
say STDERR 'Processing ', $msg->header_raw($mid),
' sent to ', join ',', @people;
}
$process_message->($msg, @people);
}
}
view release on metacpan or search on metacpan
t/devscripts/artistic-2-0-modules.pm view on Meta::CPAN
use SVG;
use SVG::Plot;
my @d1 = (0..100).map: { sin($_ / 10.0) };
my @d2 = (0..100).map: { cos($_ / 10.0) };
say SVG.serialize:
SVG::Plot.new(
width => 400,
height => 250,
values => ([@d1], [@d2]),
title => 'sin(x/10), cos(x/10)',
view release on metacpan or search on metacpan
lib/App/Lingua/BO/Wylie/Transliteration.pm view on Meta::CPAN
my $script //= $+{script };
my $vowel //= $+{vowel };
my $post1 //= $+{post1 };
my $post2 //= $+{post2 };
# say "word : $word ";
# say "pre : $pre ";
# say "super : $super ";
# say "script: $script";
# say "sub : $sub ";
# say "vowel : $vowel ";
# say "post1 : $post1 ";
# say "post2 : $post2 ";
$o .= $self->PRESCRIPT -> {uc $pre} if defined $pre;
$o .= $self->SUPERSCRIPT -> {uc $super} if defined $super;
$o .= $self->SCRIPT_SUBJ -> {uc $script} if defined $script and defined $super;
$o .= $self->SCRIPT -> {uc $script} if defined $script and $super eq '';
view release on metacpan or search on metacpan
lib/App/LinkSite.pm view on Meta::CPAN
class App::LinkSite {
our $VERSION = '0.1.1';
use strict;
use warnings;
use feature qw[say signatures];
no if $] >= 5.038, 'warnings', qw[experimental::signatures experimental::class];
use Template;
use JSON;
use Path::Tiny;
view release on metacpan or search on metacpan
lib/App/MBUtiny.pm view on Meta::CPAN
### CODE:
my ($self, $meta, @arguments) = @_;
$self->configure or return 0;
my $status = 1;
if ($self->testmode) {
say("CLI arguments: ", join("; ",@arguments) || 'none' );
say("Meta: ", explain($meta));
say("CTK object: ", explain($self));
say("App handlers: ", join(", ", $self->list_handlers));
return 1;
}
# Get host-list
my @hosts = $self->_getHosts();
lib/App/MBUtiny.pm view on Meta::CPAN
$tbl->row(sprintf("%s storage", $k),
$st ? sprintf("File %s is available", $last_file) : sprintf("File %s missing", $last_file),
$st ? 'PASS' : 'SKIP',
);
}
#say(explain($storage->{list}));
}
#
# Getting information about file on collector
lib/App/MBUtiny.pm view on Meta::CPAN
my %keepfiles;
foreach my $td (@dates) {
($maskfmt{YEAR}, $maskfmt{MONTH}, $maskfmt{DAY}) = ($1,$2,$3) if $td =~ /(\d{4})(\d{2})(\d{2})/;
$keepfiles{dformat($arcmask, {%maskfmt})} = $td;
}
#say(explain(\%keepfiles));
# Get objects
my $objects = array($host, 'object');
lib/App/MBUtiny.pm view on Meta::CPAN
# </Exclude>
#
$step = "Exclusion handling";
$self->debug($step);
my $exclude_node = _node_correct(node($host, "exclude"), "object");
#say(explain($exclude_node));
$i = 0;
foreach my $exclude (@$exclude_node) {
my $sgn = sprintf("Exc copying #%d", ++$i);
my $exc_name = _getName($exclude);
my $exc_data = hash($exclude, $exc_name);
lib/App/MBUtiny.pm view on Meta::CPAN
if ($storage->error) {
$self->log_error($storage->error);
push @errors, $storage->error, "";
$ostat = 0;
};
#say(explain(\@filelist));
#
# Deleting old files
#
#say(explain(\%keepfiles));
$step = "Deleting old files";
$self->debug($step);
{
my $j = 0; $i = 0;
foreach my $f (@filelist) {
lib/App/MBUtiny.pm view on Meta::CPAN
}
my $lcols = $self->_getCollector($host);
push @collectors, @$lcols;
}
push @collectors, {} unless @collectors; # Default support
#say(explain(\@collectors));
#
# Select collectors
#
my %cols;
foreach my $col (@collectors) {
my $url = value($col, 'url') || 'local';
$cols{$url} = $col unless $cols{$url};
}
@collectors = values %cols;
#say(explain(\@collectors));
#
# Collectors checking
#
lib/App/MBUtiny.pm view on Meta::CPAN
printf("Creating local database %s...\n", $dbi->{file});
} else {
printf("Checking database %s...\n", $dbi->dsn);
}
if ($dbi->error) {
say "Fail.";
$self->error($dbi->error);
} else {
say "Done.";
}
# Creating configuration
my $skel = new CTK::Skel (
-name => PROJECTNAME,
lib/App/MBUtiny.pm view on Meta::CPAN
PROJECTNAME => PROJECTNAME,
PREFIX => PREFIX,
},
-debug => $self->debugmode,
);
#say("Skel object: ", explain($skel));
printf("Creating configuration to %s...\n", $self->root);
if ($skel->build("config")) {
$self->CTK::Plugin::Config::init;
$config = $self->configobj;
unless ($config->status) {
say "Fail.";
return 0;
}
say "Done.";
} else {
say "Fail.";
$self->error(sprintf("Can't %s initialize: %s", PREFIX, $self->root));
return 0;
}
return 1;
}
view release on metacpan or search on metacpan
lib/App/MHFS.pm view on Meta::CPAN
}
elsif($versionflag) {
print __PACKAGE__." $VERSION";
exit 0;
}
say __PACKAGE__ .": parsed command line args";
$launchsettings{flush} = $flush if($flush);
$launchsettings{CFGDIR} = $cfgdir if($cfgdir);
$launchsettings{FALLBACK_DATA_ROOT} = $fallback_data_root if($fallback_data_root);
$launchsettings{APPDIR} = $appdir if($appdir);
$launchsettings{debug} = $debug if ($debug);
# start the server (blocks)
say __PACKAGE__.": starting MHFS::HTTP::Server";
my $server = MHFS::HTTP::Server->new(\%launchsettings,
['MHFS::Plugin::MusicLibrary',
'MHFS::Plugin::GetVideo',
'MHFS::Plugin::VideoLibrary',
'MHFS::Plugin::Youtube',
view release on metacpan or search on metacpan
lib/App/MP4Meta/Base.pm view on Meta::CPAN
try {
push( @{ $self->{'sources_objects'} },
$self->_new_source($source) );
}
catch {
say STDERR "could not load source: $_";
};
}
return $self;
}
lib/App/MP4Meta/Base.pm view on Meta::CPAN
my ( $self, $path ) = @_;
return unless $self->{'itunes'};
unless ( $^O eq 'darwin' ) {
say STDERR 'can only add to iTunes on Mac OSX';
return 1;
}
$path =~ s!/!:!g;
lib/App/MP4Meta/Base.pm view on Meta::CPAN
"osascript -e 'tell application \"iTunes\" to add file \"%s\" to playlist \"Library\" of source \"Library\"'",
$path );
my $result = `$cmd`;
if ($?) {
say STDERR "error adding to iTunes: $result";
return 1;
}
if ( $self->{'verbose'} and $result ) {
say $result;
}
return;
}
view release on metacpan or search on metacpan
lib/App/MPDJ.pm view on Meta::CPAN
my @configs =
$self->config->get('conf') || ('/etc/mpdj.conf', "$ENV{HOME}/.mpdjrc");
foreach my $config (@configs) {
if (-e $config) {
say "Loading config ($config)" if $self->config->get('conlog');
$self->config->file($config);
} else {
say "Config file skipped ($config)" if $self->config->get('conlog');
}
}
$self->_getopt(@args); # to override config file
}
lib/App/MPDJ.pm view on Meta::CPAN
return unless $self->config->get('calls-freq');
return time - $self->{last_call} > $self->config->get('calls-freq');
}
sub version {
say "mpdj (App::MPDJ) version $VERSION";
exit;
}
sub help {
print <<'HELP';
view release on metacpan or search on metacpan
lib/App/MPDSync.pm view on Meta::CPAN
);
}
sub vprint {
my ($self, @message) = @_;
say @message if $self->{verbose};
}
sub show_help {
print <<'HELP';
Usage: mpd-sync [options] --from source [--to dest]
lib/App/MPDSync.pm view on Meta::CPAN
exit;
}
sub show_version {
say "mpd-sync (App::MPDSync) version $VERSION";
exit;
}
sub execute {
my ($self) = @_;
lib/App/MPDSync.pm view on Meta::CPAN
local @SIG{qw{ INT TERM HUP }} = sub {
exit 0;
};
unless ($self->{from}) {
say STDERR 'Source MPD not provided';
show_help;
}
my $source = Net::MPD->connect($self->{from});
view release on metacpan or search on metacpan
lib/App/Magpie/Action/Missing.pm view on Meta::CPAN
);
@mageia{ @$mgadists } = ();
# list available rpms not installed locally
delete @mageia{ @local };
say $_ for sort keys %mageia;
}
1;
__END__
view release on metacpan or search on metacpan
script/maisha view on Meta::CPAN
The prompt you wish to see on the command line. This will default to 'maisha>'
if not configured.
=item * tag
The tag you wish to have added to the end of an update/say command. This will
default to '[from maisha]' if not configured. If you do not wish a tag to
be added at all, set the tag to '.' in the configuration file.
=item * order
script/maisha view on Meta::CPAN
Post a direct message to another user. Include the username of the person you
wish to send a message to, followed by your message, of upto 140 characters in
length.
=item * update | say <message>
Posts a new status message, of upto 140 characters in length.
=item * exit | quit | q
view release on metacpan or search on metacpan
bin/mark-cp view on Meta::CPAN
each_path(sub {
my ($path) = @_;
unless (-e $path) {
say "No such file: $path";
return;
}
my ($source_basename, $source_path) = fileparse($path);
my $target = File::Spec->catfile('.', $source_basename);
if (-e $target) {
say "Warning: $path will overwrite $target";
# See mark-mv for some discussion of what happens if target exists.
}
if (copy($path, './')) {
say "Copied: $path";
} else {
say "Copy failed: $!"
}
});
view release on metacpan or search on metacpan
lib/App/Math/Tutor/Util.pm view on Meta::CPAN
=head2 sumcat_terms
my $formatted = sumcat_terms( "-", VulFrac->new( num => $p, denum => 2, sign => -1 ),
Power->new( mode => 1, basis => $d, exponent =>
VulFrac->new( num => 1, denum => 2 ) ) );
say $formatted;
# \frac{\frac{7}{4}}{2}\pm\sqrt{-\left(\frac{\frac{7}{4}}{2}\right)-\frac{3}{4}}
Concatenates terms using specified kind of addition operation
=cut
view release on metacpan or search on metacpan
t/28_cpanfile.t view on Meta::CPAN
my ( $fh, $cpanfile ) = tempfile( "cpanfile.XXXXXXXX", DIR => $tmpdir );
my @resolvd;
my @pkgs = qw/Try::Tiny Test::More/;
$fh->say("requires '$_';") foreach @pkgs;
$fh->seek( 0, 0 );
*App::MechaCPAN::Install::_resolve = sub
{
my $target = shift;
view release on metacpan or search on metacpan
lib/App/MergeCal.pm view on Meta::CPAN
open $out_fh, '>', $output
or die "Cannot open output file [$output]: $!\n";
select $out_fh;
}
say "$_\r" for Text::vFile::asData->generate_lines($combined);
}
=head2 $app->clean_calendars
Ensure that all of the calendars are URIs. If a calendar doesn't have a scheme
view release on metacpan or search on metacpan
lib/App/Midgen/Role/UseModule.pm view on Meta::CPAN
my @version_strings;
# bug out if there is no Include for Module::Runtime found
return if $self->_is_module_runtime() eq FALSE;
## say 'Option 1: use_module( M::N )...';
#
# use_module("Math::BigInt", 1.31)->new("1_234");
#
#PPI::Document
lib/App/Midgen/Role/UseModule.pm view on Meta::CPAN
}
}
};
## say 'Option 2: my $q = use_module( M::N )...';
#
# my $bi = use_module("Math::BigInt", 1.31)->new("1_234");
#
lib/App/Midgen/Role/UseModule.pm view on Meta::CPAN
}
}
};
## say 'Option 3: $q = use_module( M::N )...';
#
# $bi = use_module("Math::BigInt", 1.31)->new("1_234");
#
#PPI::Document
lib/App/Midgen/Role/UseModule.pm view on Meta::CPAN
}
}
};
## say 'Option 4: return use_module( M::N )...';
#
# return use_module(\'App::SCS::PageSet\')->new(
# base_dir => $self->share_dir->catdir(\'pages\'),
# plugin_config => $self->page_plugin_config,