Result:
found more than 421 distributions - search limited to the first 2001 files matching your query
( run in 2.135 )
App-EmacsLockfileUtils
view release on metacpan or search on metacpan
},
"runtime" : {
"requires" : {
"Data::Sah::Compiler::perl::TH::bool" : "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",
"File::Lockfile::Emacs" : "0",
"Perinci::CmdLine::Any" : "0.154",
"Perinci::CmdLine::Lite" : "1.924",
"Sah::Schema::filename" : "0",
App-EventStreamr
view release on metacpan or search on metacpan
share/status/app/lib/angular/angular.js view on Meta::CPAN
* @param {string|DOMElement} element HTML string or DOMElement to be wrapped into jQuery.
* @returns {Object} jQuery object.
*/
var jqCache = JQLite.cache = {},
jqName = JQLite.expando = 'ng-' + new Date().getTime(),
jqId = 1,
addEventListenerFn = (window.document.addEventListener
? function(element, type, fn) {element.addEventListener(type, fn, false);}
: function(element, type, fn) {element.attachEvent('on' + type, fn);}),
removeEventListenerFn = (window.document.removeEventListener
share/status/app/lib/angular/angular.js view on Meta::CPAN
});
}
}
function jqLiteRemoveData(element, name) {
var expandoId = element[jqName],
expandoStore = jqCache[expandoId];
if (expandoStore) {
if (name) {
delete jqCache[expandoId].data[name];
return;
}
if (expandoStore.handle) {
expandoStore.events.$destroy && expandoStore.handle({}, '$destroy');
jqLiteOff(element);
}
delete jqCache[expandoId];
element[jqName] = undefined; // ie does not allow deletion of attributes on elements.
}
}
function jqLiteExpandoStore(element, key, value) {
var expandoId = element[jqName],
expandoStore = jqCache[expandoId || -1];
if (isDefined(value)) {
if (!expandoStore) {
element[jqName] = expandoId = jqNextId();
expandoStore = jqCache[expandoId] = {};
}
expandoStore[key] = value;
} else {
return expandoStore && expandoStore[key];
}
}
function jqLiteData(element, key, value) {
var data = jqLiteExpandoStore(element, 'data'),
share/status/app/lib/angular/angular.js view on Meta::CPAN
*
*
* #### `template`
* replace the current element with the contents of the HTML. The replacement process
* migrates all of the attributes / classes from the old element to the new one. See the
* {@link guide/directive#creating-custom-directives_creating-directives_template-expanding-directive
* Directives Guide} for an example.
*
* You can specify `template` as a string representing the template or as a function which takes
* two arguments `tElement` and `tAttrs` (described in the `compile` function api below) and
* returns a string value representing the template.
share/status/app/lib/angular/angular.js view on Meta::CPAN
if (parent) {
parent.replaceChild(newNode, firstElementToRemove);
}
var fragment = document.createDocumentFragment();
fragment.appendChild(firstElementToRemove);
newNode[jqLite.expando] = firstElementToRemove[jqLite.expando];
for (var k = 1, kk = elementsToRemove.length; k < kk; k++) {
var element = elementsToRemove[k];
jqLite(element).remove(); // must do this way to clean up expando
fragment.appendChild(element);
delete elementsToRemove[k];
}
elementsToRemove[0] = newNode;
App-ExifUtils
view release on metacpan or search on metacpan
}
},
"runtime" : {
"requires" : {
"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",
"Image::ExifTool" : "0",
"Perinci::CmdLine::Any" : "0",
"Perinci::CmdLine::Lite" : "1.827",
"Sah::Schema::filename" : "0",
App-FargateStack
view release on metacpan or search on metacpan
lib/App/FargateStack/Pod.pm view on Meta::CPAN
Alias for B<--route53-profile>.
=item B<--region> I<STR>
AWS region used when expanding ECR shorthand.
=item B<--out> I<FILE>
Write YAML to a file instead of STDOUT.
lib/App/FargateStack/Pod.pm view on Meta::CPAN
domain: example.com
=head2 FULL SCHEMA OVERVIEW
The framework will expand and update your configuration file with default values as needed.
Here is the full schema outline. All keys are optional unless otherwise noted:
---
account:
alb:
App-Fasops
view release on metacpan or search on metacpan
lib/App/Fasops/Common.pm view on Meta::CPAN
my $seq_count = scalar @{$seq_refs};
Carp::confess "Need three or more sequences\n" if $seq_count < 3;
# Don't expand indel set here. Last seq is outgroup
my @indel_intspans;
for my $i ( 0 .. $seq_count - 2 ) {
my $indel_intspan = indel_intspan( $seq_refs->[$i] );
push @indel_intspans, $indel_intspan;
}
lib/App/Fasops/Common.pm view on Meta::CPAN
my $seq_count = scalar @{$seq_refs};
my @ingroup_idx = ( 0 .. $seq_count - 2 );
Carp::confess "Need three or more sequences\n" if $seq_count < 3;
# Don't expand indel set here. Last seq is outgroup
my @indel_intspans;
for my $i (@ingroup_idx) {
my $indel_intspan = indel_intspan( $seq_refs->[$i] );
push @indel_intspans, $indel_intspan;
}
App-FfmpegUtils
view release on metacpan or search on metacpan
"Data::Sah::Compiler::perl::TH::bool" : "0.914",
"Data::Sah::Compiler::perl::TH::duration" : "0.914",
"Data::Sah::Compiler::perl::TH::float" : "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",
"File::Temp" : "0.2310",
"File::Which" : "0",
"File::chdir" : "0",
"IPC::System::Options" : "0.339",
App-FileCommonUtils
view release on metacpan or search on metacpan
"requires" : {
"Data::Sah::Compiler::perl::TH::array" : "0",
"Data::Sah::Compiler::perl::TH::bool" : "0",
"Data::Sah::Compiler::perl::TH::int" : "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::Common" : "0.003",
"Perinci::CmdLine::Any" : "0",
"Perinci::CmdLine::Lite" : "1.827",
"Sah::Schema::dirname" : "0",
App-FileDigestCLIs
view release on metacpan or search on metacpan
"runtime" : {
"requires" : {
"Data::Sah::Coerce::perl::To_array::From_str::comma_sep" : "0",
"Data::Sah::Compiler::perl::TH::array" : "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::Digest" : "0.009",
"Perinci::CmdLine::Any" : "0",
"Perinci::CmdLine::Lite" : "1.827",
"Sah::Schema::filename" : "0"
App-FileFindUtils
view release on metacpan or search on metacpan
"requires" : {
"Data::Sah::Compiler::perl::TH::array" : "0.914",
"Data::Sah::Compiler::perl::TH::code" : "0.914",
"Data::Sah::Compiler::perl::TH::str" : "0.914",
"Data::Sah::Filter::perl::Code::eval" : "0",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"File::Find::Wanted" : "0",
"Perinci::CmdLine::Any" : "0.154",
"Perinci::CmdLine::Lite" : "1.924",
"Sah::Schema::code_from_str" : "0",
App-FileModifyUtils
view release on metacpan or search on metacpan
},
"runtime" : {
"requires" : {
"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",
"Exporter" : "5.57",
"Log::ger" : "0.038",
"Perinci::CmdLine::Any" : "0.152",
"Perinci::CmdLine::Lite" : "1.905",
App-FileRenameUtils
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::str" : "0.914",
"Data::Sah::Filter::perl::Path::check_path_exists" : "0",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"Exporter" : "5.57",
"File::Copy" : "0",
"File::Find" : "0",
"File::Util::DirList" : "0.002",
App-FileSortUtils
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::re" : "0.914",
"Data::Sah::Compiler::perl::TH::str" : "0.914",
"Data::Sah::Filter::perl::Code::eval" : "0",
"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",
"File::Util::Sort" : "0",
"Log::ger" : "0.038",
"Perinci::CmdLine::Any" : "0.154",
App-FilenameKeyValueUtils
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::hash" : "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",
"Filename::KeyValue" : "0.007",
"Perinci::CmdLine::Any" : "0.154",
"Perinci::CmdLine::Lite" : "1.924",
"Sah::Schema::filename" : "0",
App-FilenameTimestampUtils
view release on metacpan or search on metacpan
"runtime" : {
"requires" : {
"Data::Sah::Compiler::perl::TH::array" : "0.914",
"Data::Sah::Compiler::perl::TH::bool" : "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::Timestamp" : "0",
"Perinci::CmdLine::Any" : "0.154",
"Perinci::CmdLine::Lite" : "1.924",
"Perinci::Object" : "0.311",
App-FilenameTypeUtils
view release on metacpan or search on metacpan
"runtime" : {
"requires" : {
"App::FilenameUtils" : "0",
"Data::Sah::Compiler::perl::TH::bool" : "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::Archive" : "0",
"Filename::Type::Audio" : "0",
"Filename::Type::Backup" : "0",
"Filename::Type::Compressed" : "0",
App-FilenameUtils
view release on metacpan or search on metacpan
},
"runtime" : {
"requires" : {
"Data::Sah::Compiler::perl::TH::bool" : "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::Media::Info" : "0",
"Filename::Type::Archive" : "0",
"Filename::Type::Audio" : "0",
"Filename::Type::Backup" : "0",
App-FindUtils
view release on metacpan or search on metacpan
"Cwd" : "0",
"Data::Sah::Compiler::perl::TH::array" : "0.914",
"Data::Sah::Compiler::perl::TH::bool" : "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",
"File::Find" : "0",
"Log::ger" : "0.038",
"Perinci::CmdLine::Any" : "0.154",
App-FishCompleteUtils
view release on metacpan or search on metacpan
"Complete::Fish::Gen::FromGetoptLong" : "0.08",
"Complete::Fish::Gen::FromGetoptLongDescriptive" : "0",
"Complete::Fish::Gen::FromPerinciCmdLine" : "0",
"Data::Sah::Compiler::perl::TH::bool" : "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",
"Perinci::CmdLine::Any" : "0",
"Perinci::CmdLine::Lite" : "1.827",
"Sah::Schema::filename" : "0",
"perl" : "5.010001",
App-Followme
view release on metacpan or search on metacpan
lib/App/Followme/Guide.pm view on Meta::CPAN
=item for
Expand the text between the "for" and "endfor" commands several times. The
argument to the "for" command should be an expression evaluating to a list. The
code will expand the text in the for block once for each element in the list.
<ul>
<!-- for @files -->
<li><a href="$url">$title</a></li>
<!-- endfor -->
App-FontUtils
view release on metacpan or search on metacpan
},
"runtime" : {
"requires" : {
"Data::Sah::Compiler::perl::TH::bool" : "0.911",
"Data::Sah::Compiler::perl::TH::str" : "0.911",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"IPC::System::Options" : "0.339",
"Log::ger" : "0.038",
"Perinci::CmdLine::Any" : "0.152",
"Perinci::CmdLine::Lite" : "1.915",
App-ForExample
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 defined( _version_check( $obj->cpan_version, $ver ) ) ) {
my $pathname = $pkg;
$pathname =~ s/::/\\W/;
App-Fotagger
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 $@;
App-Framework-Lite
view release on metacpan or search on metacpan
lib/App/Framework/Lite.pm view on Meta::CPAN
This should be a single line, concise summary of what the script does. It's used in the terse man page created by pod2man.
=head4 Description
As you'd expect, this should be a full description, user-guide etc. on what the script does and how to do it. Notice that this example
has used one (of many) of the variables available: $name (which expands to the script name, without any path or extension).
=head4 Example
An example script setup is:
lib/App/Framework/Lite.pm view on Meta::CPAN
Argument values can contain variables, defined using the standard Perl format:
$<name>
${<name>}
When the argument is used, the variable is expanded and replaced with a suitable value. The value will be looked up from a variety of possible sources:
object fields (where the variable name matches the field name) or environment variables.
The variable name is looked up in the following order, the first value found with a matching name is used:
=over 4
lib/App/Framework/Lite.pm view on Meta::CPAN
Option values and default values can contain variables, defined using the standard Perl format:
$<name>
${<name>}
When the option is used, the variable is expanded and replaced with a suitable value. The value will be looked up from a variety of possible sources:
object fields (where the variable name matches the field name) or environment variables.
The variable name is looked up in the following order, the first value found with a matching name is used:
=over 4
lib/App/Framework/Lite.pm view on Meta::CPAN
The data text can contain variables, defined using the standard Perl format:
$<name>
${<name>}
When the data is used, the variable is expanded and replaced with a suitable value. The value will be looked up from a variety of possible sources:
object fields (where the variable name matches the field name) or environment variables.
The variable name is looked up in the following order, the first value found with a matching name is used:
=over 4
lib/App/Framework/Lite.pm view on Meta::CPAN
my @vars ;
my %app_vars = $this->vars ;
push @vars, \%app_vars ;
push @vars, \%ENV ;
## expand all vars
$this->expand_keys(\%values, \@vars) ;
# set new values
foreach my $key (keys %$opt_values_href)
{
$opt_values_href->{$key} = $values{$key} ;
lib/App/Framework/Lite.pm view on Meta::CPAN
## handle any name clash
if (keys %args_clash)
{
unshift @vars, \%values ;
$this->expand_keys(\%args_clash, \@vars) ;
# set new values
foreach my $key (keys %args_clash)
{
$args_values_href->{$key} = $args_clash{$key} ;
lib/App/Framework/Lite.pm view on Meta::CPAN
Set up before running the application.
Calls the following methods in turn:
* getopts
* [internal _expand_vars method]
* options
=cut
lib/App/Framework/Lite.pm view on Meta::CPAN
## Get options
# NOTE: Need to do this here so that derived objects work properly
my $ok = $this->getopts() ;
## Expand any variables in the application object field values
$this->_expand_vars() ;
# Handle options errors here after expanding variables
unless ($ok)
{
$this->usage('opt') ;
$this->exit(1) ;
}
lib/App/Framework/Lite.pm view on Meta::CPAN
## Run application function
my %options = $this->options() ;
$this->_exec_fn('app_start', $this, \%options) ;
## expand data variables
my %app_vars = $this->vars() ;
my %opts = $this->options() ;
my $args_values_href = $this->args_values_hash() ;
my $data_href = $this->{_data_hash} ;
$this->expand_keys($data_href, [\%opts, $args_values_href, \%app_vars, \%ENV]) ;
}
#----------------------------------------------------------------------------
=item B<app_handle_opts()>
lib/App/Framework/Lite.pm view on Meta::CPAN
*Options = \&options ;
#----------------------------------------------------------------------------
#
#=item B<_expand_options()>
#
#Expand any variables in the options
#
#=cut
#
sub _expand_options
{
my $this = shift ;
$this->_dbg_prt(["_expand_options()\n"]) ;
my $options_href = $this->{_options} ;
my $options_fields_href = $this->{_option_fields_hash} ;
# get defaults & options
lib/App/Framework/Lite.pm view on Meta::CPAN
foreach my $opt (keys %$options_fields_href)
{
$defaults{$opt} = $options_fields_href->{$opt}{'default'} ;
$values{$opt} = $options_href->{$opt} if defined($options_href->{$opt}) ;
}
$this->_dbg_prt(["_expand_options: defaults=",\%defaults," values=",\%values,"\n"]) ;
# # get replacement vars
# my @vars ;
# my $app = $this->app ;
# if ($app)
# {
# my %app_vars = $app->vars ;
# push @vars, \%app_vars ;
# }
# ## expand
# my @vars ;
# push @vars, \%ENV ;
# $this->expand_keys(\%values, \@vars) ;
# push @vars, \%values ; # allow defaults to use user-specified values
# $this->expand_keys(\%defaults, \@vars) ;
#
#$this->_dbg_prt(["_expand_options - end: defaults=",\%defaults," values=",\%values,"\n"]) ;
## Update
foreach my $opt (keys %$options_fields_href)
{
# update defaults to reflect any user specified options
lib/App/Framework/Lite.pm view on Meta::CPAN
# Parse options using GetOpts
my $ok = GetOptions(@$get_options_aref) ;
# Expand the options variables
$this->_expand_options() ;
$this->_dbg_prt( ["get_options() : ok=$ok Options now=", $get_options_aref], 2 ) ;
return $ok ;
}
lib/App/Framework/Lite.pm view on Meta::CPAN
$this->_process_argv() ;
my %args ;
%args = $this->arg_hash() ;
$this->_dbg_prt(["Args before expand : hash=", \%args]) ;
# Expand the args variables
$this->_expand_args() ;
# Set arg list
my @arg_array ;
%args = $this->arg_hash() ;
my $arg_list = $this->{arg_names} ;
lib/App/Framework/Lite.pm view on Meta::CPAN
}
}
#----------------------------------------------------------------------------
#
#=item B<_expand_vars()>
#
#Run through some of the application variables/fields and expand any instances of variables embedded
#within the values.
#
#Example:
#
# __DATA_
#
# [SYNOPSIS]
#
# $name [options] <rrd file(s)>
#
#Here the 'synopsis' field contains the $name field variable. This needs to be expanded to the value of $name.
#
#NOTE: Currently this will NOT cope with cross references (so, if in the above example $name also contains a variable
#then that variable may or may not be expanded before the synopsis field is processed)
#
#
#=cut
#
sub _expand_vars
{
my $this = shift ;
# Get hash of fields
my %fields = $this->vars() ;
print "_expand_vars()\n" if $this->{'debug'}>=2 ;
# work through each field, create a list of those that have changed
my %changed ;
foreach my $field (sort keys %fields)
{
lib/App/Framework/Lite.pm view on Meta::CPAN
(\w+) # find a "word" and store it in $1
\}{0,1} # optional brace
}{
no strict 'refs'; # for $$1 below
if (defined $fields{$1}) {
$fields{$1}; # expand global variables only
} else {
"\${$1}"; # leave it
}
}egx;
lib/App/Framework/Lite.pm view on Meta::CPAN
if (keys %changed)
{
$this->set(%changed) ;
}
print "_expand_vars() - done\n" if $this->{'debug'}>=2 ;
}
#----------------------------------------------------------------------------
#
#=item B<_expand_args()>
#
#Expand any variables in the args
#
#=cut
#
sub _expand_args
{
my $this = shift ;
my $args_href = $this->{_args} ;
my $args_names_href = $this->{_arg_names_hash} ;
lib/App/Framework/Lite.pm view on Meta::CPAN
# my %opt_vars = $app->options() ;
# push @vars, \%opt_vars ;
# }
# push @vars, \%ENV ;
# ## expand
# $this->expand_keys(\%values, \@vars) ;
## Update
foreach my $arg (keys %$args_names_href)
{
$args_href->{$arg} = $values{$arg} if defined($args_href->{$arg}) ;
lib/App/Framework/Lite.pm view on Meta::CPAN
#============================================================================================
#----------------------------------------------------------------------------
=item B<expand_keys($hash_ref, $vars_aref)>
Processes all of the HASH values, replacing any variables with their contents. The variable
values are taken from the ARRAY ref I<$vars_aref>, which is an array of hashes. Each hash
containing variable name / variable value pairs.
The HASH values being expanded can be either scalar, or an ARRAY ref. In the case of the ARRAY ref each
ARRAY entry must be a scalar (e.g. an array of file lines).
=cut
sub expand_keys
{
my $this = shift ;
my ($hash_ref, $vars_aref, $_state_href, $_to_expand) = @_ ;
print "expand_keys($hash_ref, $vars_aref)\n" if $this->{debug};
$this->prt_data("vars=", $vars_aref, "hash=", $hash_ref) if $this->{debug} ;
my %to_expand = $_to_expand ? (%$_to_expand) : (%$hash_ref) ;
if (!$_state_href)
{
## Top-level
my %data_ref ;
# create state HASH
$_state_href = {} ;
# scan through hash looking for variables
%to_expand = () ;
foreach my $key (keys %$hash_ref)
{
my @vals ;
if (ref($hash_ref->{$key}) eq 'ARRAY')
{
lib/App/Framework/Lite.pm view on Meta::CPAN
$_state_href->{$key} = $data_ref{"$ref"} ;
}
else
{
print " + new state key=$key\n" if $this->{debug}>=2;
my $state = 'expanded' ;
$_state_href->{$key} = \$state ;
}
# save data reference
$data_ref{"$ref"} = $_state_href->{$key} if $ref ;
lib/App/Framework/Lite.pm view on Meta::CPAN
print " + + val=$val\n" if $this->{debug}>=2;
if (index($val, '$') >= 0)
{
print " + + + needs expanding\n" if $this->{debug}>=2;
$to_expand{$key}++ ;
${$_state_href->{$key}} = 'to_expand' ;
last ;
}
}
}
}
$this->prt_data("to expand=", \%to_expand) if $this->{debug};
$this->prt_data("Hash=", $hash_ref) if $this->{debug};
## Expand them
foreach my $key (keys %to_expand)
{
print " # Key=$key State=${$_state_href->{$key}}\n" if $this->{debug};
# skip if not valid (if called recursively with a variable that is not in the hash)
next unless exists($hash_ref->{$key}) ;
# Do replacement iff required
next if ${$_state_href->{$key}} eq 'expanded' ;
my @vals ;
if (ref($hash_ref->{$key}) eq 'ARRAY')
{
foreach my $val (@{$hash_ref->{$key}})
lib/App/Framework/Lite.pm view on Meta::CPAN
elsif (!ref($hash_ref->{$key}))
{
push @vals, \$hash_ref->{$key} ;
}
# mark as expanding
${$_state_href->{$key}} = 'expanding' ;
$this->prt_data("Vals to expand=", \@vals) if $this->{debug};
#use re 'debugcolor' ;
foreach my $val_ref (@vals)
{
lib/App/Framework/Lite.pm view on Meta::CPAN
{
## use current HASH values before vars
if (defined $hash_ref->{$var})
{
print " ## var=$var current state=${$_state_href->{$var}}\n" if $this->{debug};
if (${$_state_href->{$var}} eq 'to_expand')
{
print " ## var=$var call expand..\n" if $this->{debug};
# go expand it first
$this->expand_keys($hash_ref, $vars_aref, $_state_href, {$var => 1}) ;
}
if (${$_state_href->{$var}} eq 'expanded')
{
print " ## var=$var already expanded\n" if $this->{debug};
$replace = $hash_ref->{$var}; # expand variable
$replace = join("\n", @{$hash_ref->{$var}}) if (ref($hash_ref->{$var}) eq 'ARRAY') ;
}
}
print " ## var=$var can replace from hash=$replace\n" if $this->{debug};
lib/App/Framework/Lite.pm view on Meta::CPAN
## use vars
foreach my $href (@$vars_aref)
{
if (defined $href->{$var})
{
$replace = $href->{$var}; # expand variable
$replace = join("\n", @{$hash_ref->{$var}}) if (ref($href->{$var}) eq 'ARRAY') ;
print " ## found var=$var replace=$replace\n" if $this->{debug};
last ;
}
}
lib/App/Framework/Lite.pm view on Meta::CPAN
}egxm; ## NOTE: /m is for multiline anchors; /s is for multiline dots
}
$this->prt_data("Hash now=", $hash_ref) if $this->{debug}>=2;
# mark as expanded
${$_state_href->{$key}} = 'expanded' ;
$this->prt_data("State now=", $_state_href) if $this->{debug}>=2;
}
}
App-Framework
view release on metacpan or search on metacpan
lib/App/Framework.pm view on Meta::CPAN
This should be a single line, concise summary of what the script does. It's used in the terse man page created by pod2man.
=head4 Description
As you'd expect, this should be a full description, user-guide etc. on what the script does and how to do it. Notice that this example
has used one (of many) of the variables available: $name (which expands to the script name, without any path or extension).
=head4 Options
Command line options are defined in this section in the format:
App-FzfUtils
view release on metacpan or search on metacpan
share/sample0.txt view on Meta::CPAN
tickseed raucities letterspace schillers catalexes cobwebbing saltcellars shelling figs backsplashes acidimetries winy ingenuity singlenesses prenominates excursion waxily propping disgustingly liras gunstocks delusory legatee wine boyhood emotionles...
agger diabolisms preluded whetter subpopulation crock yelled misstating noncorrelation lar bulgur forebodies leotard duellers defogged dript tapelike researching scats whiskies blunderingly changers tardyon hemin superbillionaire rate caissons hetero...
staggerers salicin glaciating balefully outwasting outputted glazings airfare fictional untruest spectrogram replacing neuroses fluorination nasty windblasts hirselled novercal nonpayment autoeciously huffish guaranteed scalawag dodecagon instincts f...
napes yardbird cabaret calendula percolating lambaste dimensions grig scrubbers portably lysogenizing overprescriptions dupping hocused neologisms catamenial balconies carnalities subcurative encyclopedist fashioned cella osteomalacia packability shi...
enfeeblements beneficiated isobaric hooknose revolting anoas satang fliers feoffors wyte pyelitis rangier professorships supples exogamies scabbiest scintillators defensibly egalites myelitis hyperparasitisms locomotory zealousnesses inanimatenesses ...
fogey elytra misspell luxe shacks abatis unassumingness adman theorbo objectionablenesses parsecs casimere anastrophe angerless bifurcated exilic gesturer hydatid expands processor infester anosmia typhlosoles cavorting chowtimes crinolines repartiti...
ointment swiping hardness bask carnitine inconclusiveness porphyry hominoids headsail pasting grandioseness franchises smallholder beliquored lieutenants mumm epilimnion seesawing rete whippy thoracal proprietorship perfectivity fingernails gullible ...
allophane objectification sris infolder declare deplane psychasthenias terminus vizards antitype pretrimmed convocational transnationalism pasta outermost scolloping egers formulating trisomes shoebills allosauruses bewearied ashing campfire crumbs f...
gargety assiduity relumes hopper denotements pipette dualizing swaggies prescored trades repress latently kymographs sectorial bryophyte merchandized proneness straggling hoagies nictitated spectrofluorometry photographer impertinencies malodorously ...
bubinga denaturalizes laigh heathenism comelinesses dividers ropable salaams ken marplot tortrixes enterers budgerigars directness aestivate pyrogens overlook turbidimetry winker windowed soundboards foaled hyperglycemias overbalancing batholithic ea...
synthesizer stripling abiogeneses amoebiases commanded fulcrum reluming newish percipient phlebography unrated acupressures caput menstruates clairvoyantly ionization microtome discontinuation writes perkiness bongoists conduciveness professorates ti...
App-GHGen
view release on metacpan or search on metacpan
lib/App/GHGen/Fixer.pm view on Meta::CPAN
sub add_trigger_filters($workflow) {
my $on = $workflow->{on} or return 0;
my $modified = 0;
# If 'on' is just 'push', expand it
if (ref $on eq 'ARRAY' && grep { $_ eq 'push' } @$on) {
$workflow->{on} = {
push => {
branches => ['main', 'master'],
},
App-GUI-Cellgraph
view release on metacpan or search on metacpan
lib/App/GUI/Cellgraph.pm view on Meta::CPAN
=head1 DESCRIPTION
This graphical application uses cellular automata logic, as described in
I<Steve Wolfram>s book I<"A new kind of science">, to paint tiled pictures.
Although, the original concept got expanded by many additional options
and functionalities.
It is meant for B<fun>, leasure, B<beautiful>, personalized images
and a deeper B<understanding> about how cellular automatons work.
App-GUI-Harmonograph
view release on metacpan or search on metacpan
lib/App/GUI/Harmonograph/Frame.pm view on Meta::CPAN
}
sub inc_base_counter {
my ($self, $type) = @_;
my $dir = $self->{'config'}->get_value('file_base_dir');
$dir = App::GUI::Harmonograph::Settings::expand_path( $dir );
my $base = File::Spec->catfile( $dir, $self->{'config'}->get_value('file_base_name') );
my $cc = $self->{'config'}->get_value('file_base_counter');
while (1){
last unless -e $base.'_'.$cc.'.svg'
or -e $base.'_'.$cc.'.png'
lib/App/GUI/Harmonograph/Frame.pm view on Meta::CPAN
}
sub base_path {
my ($self) = @_;
my $dir = $self->{'config'}->get_value('file_base_dir');
$dir = App::GUI::Harmonograph::Settings::expand_path( $dir );
File::Spec->catfile( $dir, $self->{'config'}->get_value('file_base_name') )
.'_'.$self->{'config'}->get_value('file_base_counter');
}
App-GUI-Juliagraph
view release on metacpan or search on metacpan
lib/App/GUI/Juliagraph/Settings.pm view on Meta::CPAN
use File::Spec;
sub load {
my ($file) = @_;
return unless defined $file;
$file = expand_path( $file );
my $data = {};
open my $FH, '<', $file or return "could not read $file: $!";
my $cat = '';
while (<$FH>) {
chomp;
lib/App/GUI/Juliagraph/Settings.pm view on Meta::CPAN
$i = index($path, $ENV{HOME} );
$path = '~' . substr( $path, length $ENV{HOME}) if $i > -1;
$path;
}
sub expand_path {
my ($path) = @_;
$path = File::Spec->catdir( $FindBin::Bin, substr( $path, 1) ) if substr($path, 0,1) eq '.';
$path = File::Spec->catdir( $ENV{HOME}, substr( $path, 1) ) if substr($path, 0,1) eq '~';
$path;
}
App-GUI-Notepad
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 defined( _version_check( $obj->cpan_version, $ver ) ) ) {
my $pathname = $pkg;
$pathname =~ s/::/\\W/;
( run in 2.135 seconds using v1.01-cache-2.11-cpan-97f6503c9c8 )