view release on metacpan or search on metacpan
},
"runtime" : {
"requires" : {
"Data::Sah::Compiler::perl::TH::array" : "0.914",
"Data::Sah::Compiler::perl::TH::str" : "0.914",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"Filename::Archive" : "0.033",
"Filename::Compressed" : "0.050",
"Perinci::CmdLine::Any" : "0.154",
"Perinci::CmdLine::Lite" : "1.924",
view release on metacpan or search on metacpan
},
"runtime" : {
"requires" : {
"Data::Sah::Compiler::perl::TH::array" : "0.914",
"Data::Sah::Compiler::perl::TH::str" : "0.914",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"Filename::Type::Perl::Release" : "0",
"Perinci::CmdLine::Any" : "0.154",
"Perinci::CmdLine::Lite" : "1.924",
"Sah::Schema::filename" : "0",
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# Save this 'cause CPAN will chdir all over the place.
my $cwd = Cwd::cwd();
CPAN::Shell->install('Module::Build::Compat');
CPAN::Shell->expand("Module", "Module::Build::Compat")->uptodate
or die "Couldn't install Module::Build, giving up.\n";
chdir $cwd or die "Cannot chdir() back to $cwd: $!";
}
eval "use Module::Build::Compat 0.02; 1" or die $@;
view release on metacpan or search on metacpan
lib/Chronicle/Config/Reader.pm view on Meta::CPAN
Comments may occur at the start, middle, or end of a line.
=item Environmental variable expansion
Environmental variables are expanded if they are detected.
=item Command-execution and expansion
If backticks are found in configuration values they will be replaced with the output of the specified command.
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
while ( my ( $pkg, $ver ) = splice( @modules, 0, 2 ) ) {
MY::preinstall( $pkg, $ver ) or next if defined &MY::preinstall;
print "*** Installing $pkg...\n";
my $obj = CPAN::Shell->expand( Module => $pkg );
my $success = 0;
if ( $obj and _version_cmp( $obj->cpan_version, $ver ) >= 0 ) {
my $pathname = $pkg;
$pathname =~ s/::/\\W/;
view release on metacpan or search on metacpan
lib/App/ClusterSSH.pm view on Meta::CPAN
$self->debug( 3, 'Expanded to ',
join( ' ', $self->cluster->get_tag($dirty) ) );
@tag_list = $self->cluster->get_tag($dirty);
}
else {
# don't expand if there is only one record found
$self->debug( 3, 'Only one A record' );
}
}
}
if (@tag_list) {
lib/App/ClusterSSH.pm view on Meta::CPAN
$self->config->{show_history} = 0;
}
else {
$windows{history}->pack(
-fill => "x",
-expand => 1,
);
$self->config->{show_history} = 1;
}
}
lib/App/ClusterSSH.pm view on Meta::CPAN
-insertborderwidth => 4,
-width => 25,
-class => 'cssh',
)->pack(
-fill => "x",
-expand => 1,
);
$windows{history} = $windows{main_window}->Scrolled(
"ROText",
-insertborderwidth => 4,
lib/App/ClusterSSH.pm view on Meta::CPAN
$windows{history}->bindtags(undef);
if ( $self->config->{show_history} ) {
$windows{history}->pack(
-fill => "x",
-expand => 1,
);
}
$windows{main_window}->bind( '<Destroy>' => sub { $self->exit_prog } );
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
while ( my ( $pkg, $ver ) = splice( @modules, 0, 2 ) ) {
MY::preinstall( $pkg, $ver ) or next if defined &MY::preinstall;
print "*** Installing $pkg...\n";
my $obj = CPAN::Shell->expand( Module => $pkg );
my $success = 0;
if ( $obj and _version_cmp( $obj->cpan_version, $ver ) >= 0 ) {
my $pathname = $pkg;
$pathname =~ s/::/\\W/;
view release on metacpan or search on metacpan
lib/App/Codeowners.pm view on Meta::CPAN
my $toplevel = git_toplevel('.') or die "Not a git repo\n";
my $codeowners_path = find_codeowners_in_directory($toplevel)
or die "No CODEOWNERS file in $toplevel\n";
local $ENV{GIT_CODEOWNERS_ALIASES} = 1 if $opts->{expand_aliases};
my $codeowners = $self->_parse_codeowners($codeowners_path);
my ($proc, $cdup) = run_git(qw{rev-parse --show-cdup});
$proc->wait and exit 1;
lib/App/Codeowners.pm view on Meta::CPAN
my %filter_patterns = map { $_ => 1 } @{$opts->{pattern}};
$proc = git_ls_files('.', $opts->args);
while (my $filepath = $proc->next) {
my $match = $codeowners->match(path($filepath)->relative($cdup),
expand => $opts->{expand_aliases});
if (%filter_owners) {
for my $owner (@{$match->{owners}}) {
goto ADD_RESULT if $filter_owners{$owner};
}
next;
view release on metacpan or search on metacpan
lib/App/Codit/CodeTextManager.pm view on Meta::CPAN
-logcall => ['log', $self],
-modifiedcall => ['Modified', $self],
-saveimage => $ext->getArt('document-save', 16),
-scrollbars => 'osoe',
-width => 8,
)->pack(-expand => 1, -fill => 'both');
$self->CWidg($text);
my $xt = $text->Subwidget('XText');
$xt->bind('<Control-f>', sub { $ext->cmdExecute('doc_find') });
$xt->bind('<Control-r>', sub { $ext->cmdExecute('doc_replace') });
$self->{NAME} = '';
view release on metacpan or search on metacpan
"Data::Sah::Compiler::perl::TH::hash" : "0.914",
"Data::Sah::Compiler::perl::TH::int" : "0.914",
"Data::Sah::Compiler::perl::TH::obj" : "0.914",
"Data::Sah::Compiler::perl::TH::re" : "0.914",
"Data::Sah::Compiler::perl::TH::str" : "0.914",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"Data::Sah::Filter::perl::Perl::normalize_perl_modname" : "0",
"Log::ger" : "0.038",
"Perinci::CmdLine::Any" : "0.154",
"Perinci::CmdLine::Lite" : "1.924",
view release on metacpan or search on metacpan
lib/App/perlstyle.pod view on Meta::CPAN
=item * vim
.vimrc:
-------
set expandtab " replaces any tab keypress with the appropriate number of spaces
set tabstop=4 " sets tabs to 4 spaces
=back
=head2 Line Lengths
view release on metacpan or search on metacpan
"Convert::Base32::Crockford" : "0",
"Data::Sah::Compiler::perl::TH::array" : "0.914",
"Data::Sah::Compiler::perl::TH::bool" : "0.914",
"Data::Sah::Compiler::perl::TH::int" : "0.914",
"Data::Sah::Compiler::perl::TH::str" : "0.914",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"Encode::Base32::Crockford" : "0",
"Exporter" : "5.57",
"Log::ger" : "0.038",
"Math::Random::Secure" : "0",
view release on metacpan or search on metacpan
lib/App/DBBrowser/Options/Defaults.pm view on Meta::CPAN
binary_filter => 0,
binary_string => 'BNRY',
color => 0,
col_trim_threshold => 30,
expanded_line_spacing => 1,
expanded_max_width => 0,
# mouse => 0,
pad_row_edges => 0,
progress_bar => 60_000,
search => 1,
squash_spaces => 0,
tab_width => 2,
table_expand => 1, # expand_table_rows ##
trunc_fract_first => 1,
undef => '',
},
insert => {
file_encoding => 'UTF-8',
view release on metacpan or search on metacpan
perlcritic.rc view on Meta::CPAN
[ValuesAndExpressions::RequireUpperCaseHeredocTerminator]
[ValuesAndExpressions::RestrictLongStrings]
[ValuesAndExpressions::UnexpandedSpecialLiteral]
[Variables::ProhibitAugmentedAssignmentInDeclaration]
[Variables::ProhibitConditionalDeclarations]
view release on metacpan or search on metacpan
scripts/multi-homed-routing.pl view on Meta::CPAN
#!/usr/bin/env perl
# vim: tabstop=4 shiftwidth=4 softtabstop=4 expandtab:
use 5.014;
use strict;
use warnings;
scripts/multi-homed-routing.pl view on Meta::CPAN
sub routing_rules($$$)
{
my ($interfaces, $default_policy, $single_policy_default_interface) = @_;
my $config = {
INTERPOLATE => 1, # expand "$var" in plain text
EVAL_PERL => 1, # evaluate Perl code blocks
PRE_CHOMP => 0,
POST_CHOMP => 1 # CHOMP_GREEDY,
};
# create Template object
my $tt = Template->new($config);
my $template = <<END_OF_FILE
#!/bin/bash
# vim: tabstop=4 shiftwidth=4 softtabstop=4 expandtab:
# This script is auto-generated output of command:
# \\\$ [% cmd_line %]
view release on metacpan or search on metacpan
bin/zonewalk view on Meta::CPAN
$start_zone .= '.in-addr.arpa';
}
# check for IPv6 address as start zone, build reverse zone
elsif ( Net::DNS::Resolver::Base::_ip_is_ipv6($start_zone) ) {
# this simple algo works only for fully expanded IPv6 addresses
$start_zone =~ s/://g;
my @octets = split( //, $start_zone );
$start_zone = join( '.', reverse @octets );
$start_zone .= '.ip6.arpa';
}
view release on metacpan or search on metacpan
"requires" : {
"Cwd" : "0",
"Data::Sah::Compiler::perl::TH::array" : "0.910",
"Data::Sah::Compiler::perl::TH::bool" : "0.910",
"Data::Sah::Compiler::perl::TH::str" : "0.910",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"File::Basename" : "0",
"File::Find" : "0",
"Log::ger" : "0.038",
"Perinci::CmdLine::Any" : "0.152",
view release on metacpan or search on metacpan
lib/App/Dest.pm view on Meta::CPAN
}
catch ($e) {
die "Failed to fully make $path; check permissions or existing files\n";
}
$self->expand($path);
return 0;
}
sub expand {
my ( $self, $path ) = @_;
print join( ' ', map { <"$path/$_*"> } qw( deploy verify revert ) ), "\n";
return 0;
lib/App/Dest.pm view on Meta::CPAN
dest watches # returns a list of watched directories
dest putwatch FILE # set watch list to be what's in a file
dest writewatch # creates watch file in project root directory
dest make NAME [EXT] # create a named template set (set of 3 files)
dest expand NAME # dump a list of the template set (set of 3 files)
dest list [FILTER] # list all actions in all watches
dest prereqs [FILTER] # like "list" but include report of prereqs
dest status # check status of tracked directories
dest diff [NAME] # display a diff of any modified actions
lib/App/Dest.pm view on Meta::CPAN
And optionally, you can include any date/time format supported by L<POSIX>
C<strftime>.
dest make db/%s_action sql
=head2 expand NAME
This command lists out the relative paths and names of the 3 files of the
action provided, so you can do stuff like:
vi `dest expand db/schema`
=head2 list [FILTER]
This command will list all tracked directories and every action within each
directory. If provided a filter, it will limit what's displayed to actions
view release on metacpan or search on metacpan
lib/App/Devel/MAT/Explorer/GTK/SVDetail.pm view on Meta::CPAN
use App::Devel::MAT::Explorer::GTK::Utils qw( bytes2size );
use Struct::Dumb qw( -named_constructors );
use List::UtilsBy qw( nsort_by );
struct SVDetail => [qw( order type title render expand )];
my @MORE_DETAILS;
sub table_add
{
my ( $table, $label, $widget, $yoptions, $right ) = @_;
my $xoptions = [ "expand", "fill" ];
$yoptions //= [ "fill" ];
$right //= 3;
my ( $next_row ) = $table->get_size;
lib/App/Devel/MAT/Explorer/GTK/SVDetail.pm view on Meta::CPAN
when( "text" ) { $widget = textarea( $data ) }
when( "icon" ) { $widget = Gtk2::Image->new_from_pixbuf( get_icon( $data ) ) }
default { die "Unable to handle SV detail type " . $extra->type }
}
table_add( $table, $extra->title => $widget, $extra->expand ? [ "expand", "fill" ] : undef )
}
}
my $next_sv_detail_order = 0;
sub Devel::MAT::UI::provides_sv_detail
lib/App/Devel/MAT/Explorer/GTK/SVDetail.pm view on Meta::CPAN
push @MORE_DETAILS, SVDetail(
order => $args{order} // $next_sv_detail_order++,
type => $args{type},
title => $args{title},
render => $args{render},
expand => $args{expand},
);
}
0x55AA;
view release on metacpan or search on metacpan
lib/App/Device/Chip/UI.pm view on Meta::CPAN
)
);
$vbox->add(
my $tabbed = Tickit::Widget::Tabbed->new,
expand => 1,
);
my $updatesub;
my $initialtab;
view release on metacpan or search on metacpan
scripts/dex view on Meta::CPAN
PLAINKEY => [qw/ bright_blue /],
);
sub ansicolored {
my ($class, $tokens, %args) = @_;
my $expand_tabs = $args{expand_tabs};
$expand_tabs = 1 unless defined $expand_tabs;
require Term::ANSIColor;
local $Term::ANSIColor::EACHLINE = "\n";
my $ansi = '';
my $highlighted = '';
scripts/dex view on Meta::CPAN
$str = Term::ANSIColor::colored($color, $str);
}
$highlighted .= $str;
}
if ($expand_tabs) {
# Tabs can't be displayed with ansicolors
$highlighted =~ s/\t/' ' x 8/eg;
}
$ansi .= $highlighted;
return $ansi;
view release on metacpan or search on metacpan
},
"runtime" : {
"requires" : {
"Cwd" : "0",
"Data::Sah::Compiler::perl::TH::str" : "0",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"File::Temp" : "0.2307",
"File::chdir" : "0",
"IPC::System::Options" : "0.339",
"Log::ger" : "0.038",
view release on metacpan or search on metacpan
lib/App/DocKnot/Generate.pm view on Meta::CPAN
my $years = $copyright->{years};
# Build the initial notice with the word copyright and the years.
my $text = 'Copyright ' . $copyright->{years};
local $Text::Wrap::columns = $self->{width} + 1;
local $Text::Wrap::unexpand = 0;
$text = wrap($prefix, $prefix . q{ } x 4, $text);
# See if the holder fits on the last line. If so, add it there;
# otherwise, add another line.
my $last_length;
lib/App/DocKnot/Generate.pm view on Meta::CPAN
# Force locally correct configuration of Text::Wrap.
local $Text::Wrap::break = qr{\s+}xms;
local $Text::Wrap::columns = $self->{width} + 1;
local $Text::Wrap::huge = 'overflow';
local $Text::Wrap::unexpand = 0;
# Do the wrapping. This modifies @paragraphs in place.
$para = wrap($indent, $indent, $para);
# Strip any trailing whitespace, since some gets left behind after periods
view release on metacpan or search on metacpan
0.004 2014-08-08 15:35 CEST
- CLI.pm: add DESCRIPTION section to POD
0.005 2014-08-10 14:45 CEST
- fix bug "init routine not loading App-Dochazka-CLI sharedir"
- expand GET EMPLOYEE command:
- GET EMPLOYEE still returns current employee
- GET EMPLOYEE $INTEGER returns employee with EID $INTEGER
- GET EMPLOYEE $STRING returns employee with nick $STRING
- GET EMPLOYEE $STRING-CONTAINING-% runs a 'LIKE' search for multiple employees
- add ReadLine/History support using Term::ReadLine::Perl5
- implement "SCHEDULE CLEAR"
- cleanup, tweaks
0.136 2015-03-30 15:11 CEST
- resolve two tickets
- TokenMap.pm: expand EMPLOYEE_SPEC so we can do "nick=...", "sec_id=..." and
"eid=..."
- Util.pm: make "lookup_employee" handle expanded EMPLOYEE_SPEC
- t/cmd_admin/employee.t: add test cases for expanded EMPLOYEE_SPEC
0.137 2015-03-30 23:11 CEST
- start adding scode support
0.138 2015-03-31 17:18 CEST
- give active testing employee a schedule already in t/001-init.t;
get rid of unintuitive t/cmd_active/001-init.t
- use prompt date (century, year, month, etc.) instead of current date
(century, year, month, etc.)
- Test.pm: add a 'delete_interval' test routine
- t/cmd_active/interval.t: expand unit; use imported 'delete_interval' routine;
test that "PROMPT 2015-01-01" does change all the $prompt_... variables
0.186 2015-04-28 17:34 CEST
- t/util/: add two new units auth.t and determine_employee.t
- Util.pm: abolish 'quiet' parameter to authenticate_to_server and make routine
- Util.pm: use debug log level
- t/util/datelist.t: cleanup, initialize logger
0.233 2016-01-30 23:45 CET
- Remove INTERVAL FILLUP DATELIST ambiguity
- Commands/Interval.pm: expand statistics reported by INTERVAL FILLUP
- simplify INTERVAL FILLUP command syntax by removing _MONTH
- bin/dochazka-cli: drop annoying "Payload: undef" from output of certain commands
- Completion.pm: eliminate tab completion warning
- pod (Testers.pm): add sessions 2, 3, 4, and 5
view release on metacpan or search on metacpan
- build/ops: drop Makefile.PL, add t/critic.t and t/manifest.t
- Model.pm: address Perl::Critic critique
- t/model/reset.t: populate scode property of Schedhistory
0.210 2022-06-29 11:48 CEST
- doc: fix POD of main module and expand copyright date range
- bootstrap.sh: add new file
view release on metacpan or search on metacpan
lib/App/Dochazka/REST/Model/Schedule.pm view on Meta::CPAN
=item * all the times are evenly divisible by five minutes
=back
#
# FIXME: expand the trigger to check for "closed-open" C<< [ ..., ... ) >> tsrange
#
If the schedule is successfully inserted into C<schedintvls>, the next step is
to "translate", or convert, the individual intervals (expressed as tsrange
values) into the four-key hashes described in L<Schedules in the database>,
view release on metacpan or search on metacpan
lib/App/Dothe.pm view on Meta::CPAN
cmds:
- dzil release
=head4 C<sources>
Array of files. Can take glob patterns that will be expanded using
L<Path::Tiny::Glob>. The result is accessible via the C<sources> variable.
foo:
sources: [ './lib/**/*.pm' ]
foreach: sources
lib/App/Dothe.pm view on Meta::CPAN
Array of files. If C<sources> and C<generates> are both given, the task will
only be run if any of the sources (or the F<Dothe.yml> file itself) has been
modified after the C<generates> files.
Can take glob patterns that will be expanded using
L<Path::Tiny::Glob>. The result is accessible via the C<generates> variable.
=head4 C<foreach>
Takes the name of a variable that must hold an array. If presents,
view release on metacpan or search on metacpan
"Data::Sah::Compiler::perl::TH::array" : "0.914",
"Data::Sah::Compiler::perl::TH::bool" : "0.914",
"Data::Sah::Compiler::perl::TH::int" : "0.914",
"Data::Sah::Compiler::perl::TH::re" : "0.914",
"Data::Sah::Compiler::perl::TH::str" : "0.914",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"Data::Sah::Filter::perl::Re::re_from_str" : "0",
"Exporter" : "5.57",
"File::Basename" : "0",
"File::Copy::Recursive" : "0",
view release on metacpan or search on metacpan
lib/App/DrivePlayer/Config.pm view on Meta::CPAN
$file->{google_restapi} //= {};
$file->{google_restapi}{auth} = delete $file->{auth};
}
_merge($data, $file);
}
_expand_paths($data, dirname($self->config_file));
return $data;
}
# Recursively merge $src over $dst (scalar/array values in $src win).
sub _merge {
lib/App/DrivePlayer/Config.pm view on Meta::CPAN
acoustid_key => '',
sheet_id => '',
};
}
sub _expand_paths {
my ($data, $config_dir) = @_;
for my $key (qw( log_file )) {
$data->{$key} = _abs_path($data->{$key}, $config_dir) if defined $data->{$key};
}
$data->{database}{path} = _abs_path($data->{database}{path}, $config_dir)
lib/App/DrivePlayer/Config.pm view on Meta::CPAN
Reads a YAML configuration file and provides typed accessors for every
setting. Missing files are silently replaced by built-in defaults so the
application works out of the box before the user runs the setup wizard.
Tilde (C<~>) at the start of any path value is expanded to C<$HOME>.
=head1 ATTRIBUTES
=head2 config_file
view release on metacpan or search on metacpan
lib/App/DualLivedDiff.pm view on Meta::CPAN
my $module_name = shift;
#my $use_dev_versions = shift;
my $distro;
if ($module_name =~ /[\/.]/) {
my $dist = CPAN::Shell->expandany($module_name);
if (not defined $dist) {
warn "Could not find distribution '$module_name' on CPAN\n";
return();
}
$dist = $dist->distribution() if ref($dist) eq 'CPAN::Module';
lib/App/DualLivedDiff.pm view on Meta::CPAN
}
$distro = $dist->pretty_id();
warn "Assuming you specified a distribution name. Found the '$distro' distribution on CPAN\n";
}
else {
my $module = CPAN::Shell->expand("Module", $module_name);
if (not defined $module) {
warn "Could not find module '$module_name' on CPAN\n";
return();
}
$distro = $module->distribution()->pretty_id();