view release on metacpan or search on metacpan
share/doc/wxwidgets.pod view on Meta::CPAN
=head2 Wx::MDIParentFrame::Cascade
void Cascade()
Arranges the MDI child windows in a cascade.
See also
wxMDIParentFrame::Tile, wxMDIParentFrame::ArrangeIcons
view release on metacpan or search on metacpan
lib/Padre/Wx/Role/View.pm view on Meta::CPAN
=head2 view_label
The method returns the string that the notebook label should be filled
with. This should be internationalised properly. This method is called
once when the object is constructed, and again if the user triggers a
C<relocale> cascade to change their interface language.
=head2 view_close
This method is called on the object by the event handler for the "X"
control on the notebook label, if it has one.
view release on metacpan or search on metacpan
lib/LWP/Parallel.pm view on Meta::CPAN
# let's see what we got back (see also callback function!!)
foreach (keys %$entries) {
$res = $entries->{$_}->response;
# examine response to find cascaded requests (redirects, etc) and
# set current response to point to the very first response of this
# sequence. (not very exciting if you set '$pua->redirect(0)')
my $r = $res; my @redirects;
while ($r) {
$res = $r;
view release on metacpan or search on metacpan
root/static/yui/stylesheet/stylesheet-debug.js view on Meta::CPAN
return this;
},
/**
* <p>Unset style properties for a provided selector string, removing
* their effect from the style cascade.</p>
*
* <p>If the selector includes commas, it will be split into individual
* selectors and applied accordingly. If there are no properties
* remaining in the rule after unsetting, the rule is removed.</p>
*
view release on metacpan or search on metacpan
t/10_basic.t view on Meta::CPAN
},
);
test_service(
service_name => 'upupup',
desc => 'cascade envdir',
new_argv => {
base_dir => $BASE_DIR,
},
status_argv => {
env_dir => [
view release on metacpan or search on metacpan
lib/Parse/Dia/SQL.pm view on Meta::CPAN
$assocName, ## From table
$leftFKName, ## name of foreign key constraint
$leftFKCols, ## foreign key column in assoc tbl
$leftClassLookup->{name}, ## Table referenced
$leftEndCols, ## Column in table referenced
'on delete cascade' ## Trash when no longer referenced
);
# generate the constraint code:
# referenced attribute <- foreign key
$self->{log}->debug("Call save_foreign_key (right to left)");
$self->save_foreign_key($assocName, $rightFKName, $rightFKCols,
$rightClassLookup->{name},
$rightEndCols, 'on delete cascade');
return 1;
}
# Create datastructure that represents given Table or View SQL and
lib/Parse/Dia/SQL.pm view on Meta::CPAN
elsif ( $aggregation == 1 ) { # Aggregation
$constraintAction = 'on delete set NULL';
$defFKnull = 'null';
}
elsif ( $aggregation == 2 ) { # Composition
$constraintAction = 'on delete cascade';
}
}
else {
# ERD interpretation
lib/Parse/Dia/SQL.pm view on Meta::CPAN
if ( $constraintAction =~ /on\s+delete\s+set\s+null/i ) {
$defFKnull = 'null';
}
# tedia2sql v1.2.9b usage of 'on delete clause'
# The 'on cascade delete' clauses were on opposite ends of
# the association for one-to-many and one-to-one for ERD mode!
# if ($arity eq 'zmany' && $fkMult eq 'undef') {
# $constraintAction = $fkEnd->{'multiplicity'};
# $fkMult = 'none';
# } elsif ($arity eq 'zone' && $pkMult eq 'undef') {
view release on metacpan or search on metacpan
lib/Parse/Eyapp.pod view on Meta::CPAN
one that is acceptable. In the example
all the tokens until finding a C<'\n'> will be skipped.
If no special error productions have been specified,
the processing will halt.
In order to prevent a cascade of error messages, the parser, after
detecting an error, remains in error state until three tokens have been
successfully read and shifted. If an error is detected when the parser
is already in error state, no message is given, and the input token is
quietly deleted. The method C<YYErrok> used in the example
communicates to the parser
view release on metacpan or search on metacpan
examples/8.1/asup01.txt view on Meta::CPAN
vol.move.cutover.disk.busy.limit 100
vol.snaprestore.nondisruptive off
vsm.smtape.concurrent.cascade.support off
wafl.cpdump.level 1
wafl.cpdump.threshold 60
view release on metacpan or search on metacpan
lib/Parse/Vipar/Shell.pm view on Meta::CPAN
$modifier = 'Control';
} elsif ($^O eq 'MacOS') { # one of these days
$modifier = 'Command';
}
my $m_file = $menubar->cascade(-label => '~File', -tearoff => 0);
$m_file->command(-label => 'Load ~Parser...',
-command => sub {
$self->fileDialog("load parser %s",
["YACC files", '*.y'])
});
view release on metacpan or search on metacpan
share/utils/cpanm view on Meta::CPAN
$fatpacked{"App/cpanminus/Dependency.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'APP_CPANMINUS_DEPENDENCY';
package App::cpanminus::Dependency;use strict;use CPAN::Meta::Requirements;sub from_prereqs {my($class,$prereqs,$phases,$types)=@_;my@deps;for my$type (@$types){push@deps,$class->from_versions($prereqs->merged_requirements($phases,[$type])->as_stri...
APP_CPANMINUS_DEPENDENCY
$fatpacked{"App/cpanminus/script.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'APP_CPANMINUS_SCRIPT';
package App::cpanminus::script;use strict;use Config;use Cwd ();use App::cpanminus;use App::cpanminus::Dependency;use File::Basename ();use File::Find ();use File::Path ();use File::Spec ();use File::Copy ();use File::Temp ();use Getopt::Long ();us...
It appears your cpanm executable was installed via `perlbrew install-cpanm`.
cpanm --self-upgrade won't upgrade the version of cpanm you're running.
Run the following command to get it upgraded.
share/utils/cpanm view on Meta::CPAN
A dialog will be prompted to confirm the files to be deleted. If you pass
C<-f> option as well, the dialog will be skipped and uninstallation
will be forced.
=item --cascade-search
B<EXPERIMENTAL>: Specifies whether to cascade search when you specify
multiple mirrors and a mirror doesn't have a module or has a lower
version of the module than requested. Defaults to false.
=item --skip-installed
view release on metacpan or search on metacpan
lib/Perl/Metrics/File.pm view on Meta::CPAN
'path', # Absolute local filesystem path - '/foo/bar/baz.pm'
'checked', # UNIX epoch time last checked - '1128495103'
'hex_id', # Document MD5 Identifier - 'abcdef1234567890'
);
# Add custom deletion cascade
Perl::Metrics::File->add_trigger(
before_delete => sub { $_[0]->before_delete },
);
sub before_delete {
my $self = shift;
view release on metacpan or search on metacpan
bin/perltidy view on Meta::CPAN
cbo=1 If the first of a pair of blocks is broken in the input
file, then break the second [DEFAULT].
cbo=2 Break open all blocks for maximal cuddled formatting.
The default and recommended value is B<cbo=1>. With this value, if the starting
block of a chain spans multiple lines, then a cascade of breaks will occur for
remaining blocks causing the entire chain to be cuddled.
The option B<cbo=0> can produce erratic cuddling if there are numerous one-line
blocks.
bin/perltidy view on Meta::CPAN
C<elsif>, and C<else> blocks, we could use
C<perltidy -bli -bbvt=1 -bbvtl='if elsif else'>.
There is no vertical tightness control for closing block braces; with
one exception they will be placed on separate lines.
The exception is that a cascade of closing block braces may
be stacked on a single line. See B<--stack-closing-block-brace>.
=item B<-sot>, B<--stack-opening-tokens> and related flags
The B<-sot> flag tells perltidy to "stack" opening tokens
bin/perltidy view on Meta::CPAN
-sobb or --stack-opening-block-brace
The flag B<-sot> is an abbreviation for B<-sop -sohb -sosb>.
The flag B<-sobb> is an abbreviation for B<-bbvt=2 -bbvtl='*'>. This
will case a cascade of opening block braces to appear on a single line,
although this an uncommon occurrence except in test scripts.
=item B<-sct>, B<--stack-closing-tokens> and related flags
The B<-sct> flag tells perltidy to "stack" closing tokens
bin/perltidy view on Meta::CPAN
-scbb or --stack-closing-block-brace
The flag B<-sct> is an abbreviation for stacking the non-block closing
tokens, B<-scp -schb -scsb>.
Stacking of closing block braces, B<-scbb>, causes a cascade of isolated
closing block braces to be combined into a single line as in the following
example:
# -scbb:
for $w1 (@w1) {
view release on metacpan or search on metacpan
lib/Perl5/CoreSmokeDB/Schema/Result/Config.pm view on Meta::CPAN
__PACKAGE__->has_many(
"results",
"Perl5::CoreSmokeDB::Schema::Result::Result",
{ "foreign.config_id" => "self.id" },
{ cascade_copy => 0, cascade_delete => 0 },
);
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-09-06 09:15:22
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:l/lxpTgyv35unrcVapM8JQ
view release on metacpan or search on metacpan
share/Apocalypse/A03.pod view on Meta::CPAN
and:
$file.is_readable
Similar to the cascaded filetest ops in the previous section, one
approach might be that the boolean methods return the object in
question for success so that method calls could be stacked without
repeating the object:
if ($file.is_dir
share/Apocalypse/A03.pod view on Meta::CPAN
some object containing the stat buffer (represented in Perl 5 by the
C<_> character). If we did that, we wouldn't have to play C<$file is
true> games, because a valid stat buffer object would (presumably)
always be true (at least until it's false).
The same argument would apply to cascaded filetest operators we talked
about earlier. An autoloaded C<-drwx> handler would presumably be smart
enough to do a single stat. But we'd likely lose the speed gain by
invoking the autoload mechanism. So cascaded operators (either C<-X>
style or C<.is_XXX> style) are the way to go. They just return objects
that know how to be either boolean or stat buffer objects in context.
This implies you could even say
$statbuf = -f $file or die "Not a regular file: $file";
view release on metacpan or search on metacpan
docs/summaries/2006/03-31.pod view on Meta::CPAN
why that was the case. Larry Wall noted that to date, nobody wanted it.
=head3 L<where will we die to?|http://groups.google.com/group/perl.perl6.language/browse_frm/thread/7607e99b31ede3a3/cac325353528d842#cac325353528d842>
Yuval Kogman brought up a Catalyst problem debugging the eventual
location of a die within a cascade of evals. He suggested that Perl
6 should make it easier to trace an exception. Larry Wall asked how
this could be done without impacting performance, and Yuval clarified
his request.
=head3 L<UNIX commands: chmod|http://groups.google.com/group/perl.perl6.language/browse_frm/thread/cac2611cbfad8517/5efb19535e64cbd5#5efb19535e64cbd5>
view release on metacpan or search on metacpan
doc/writing-converters.pp view on Meta::CPAN
, to store this file as \C<style.cfg> and to invoke \C<pp2html> as in
> pp2html \RED<@style.cfg> ...
Option files can be nested and cascaded, and you can use as many of them as you want. It is also possible to use \I<default> option files which do not need to be specified when calling the script but are resolved automatically. They make it very hand...
To provide option file usage, all you have to do is to integrate the following statement.
\GREEN<# resolve option files>
argvFile(default=>1, home=>1);
view release on metacpan or search on metacpan
doc/parser-active-contents.pp view on Meta::CPAN
condition | A paragraph type to control inclusion of all subsequent source parts before the next condition. | \C<\B<?> \$PerlPoint-\>{targetLanguage} eq "HTML">
\I<tag> condition | A special tag option available for all tags which accept options which flags whether the tag should take effect or not. If Active Contents is \REF{name=Security type=linked}<disabled>, the condition defaults to "false". | \C<\\IM...
embedded Perl | Perl code embedded into \C<\\EMBED> and \C<\\END_EMBED> tags, marked as Perl by tag option \C<lang> set to \C<"perl">. The code is expected to return a string which will be interpreted as \B<PerlPoint>. | \C<This document was gene...
included Perl | Perl code read from a file via an \C<\\INCLUDE> tag, marked as Perl by tag option \C<type> set to \C<"perl">. File contents is evaluated like embedded Perl. | \C<\B<\\INCLUDE{type=perl file="included.pl"}>>
input filters | A special option to \C<\\EMBED> and \C<\\INCLUDE> tags which allows to preprocess embedded code or included files before they are furtherly processed. The filter code may be passed directly or refer to functions defined in \I<embe...
paragraph filters | Calls to functions declared in \I<embedded Perl> (see above) used to modify a complete paragraph and return it for reparsing. Filters are applied by preceeding the target paragraph with the filter call enclosed in \C<\|\|> pairs. ...
As an introduction example of the active contents feature,
here is a report about this document: it was generated
at \EMBED{lang=perl}my @t=(localtime)[3, 4, 5]; sprintf("%d.%d.%d", $t[0], $t[1]+1, $t[2]+1900); \END_EMBED.
view release on metacpan or search on metacpan
lib/Perlwikipedia.pm view on Meta::CPAN
$res = $self->{api}->api( $hash );
return $res;
}
=item protect($page, $reason, $editlvl, $movelvl, $time, $cascade)
Protects (or unprotects) the page. $editlvl and $movelvl may be '', 'autoconfirmed', or 'sysop'. $cascade is true/false.
=cut
sub protect {
my $self = shift;
my $page = shift;
my $reason = shift;
my $editlvl = shift || 'all';
my $movelvl = shift || 'all';
my $time = shift || 'infinite';
my $cascade = shift;
if ($cascade and ($editlvl ne 'sysop' or $movelvl ne 'sysop')) {
carp "Can't set cascading unless both editlvl and movelvl are sysop."
}
my $res = $self->{api}->api( {
action=>'query',
titles=>$page,
lib/Perlwikipedia.pm view on Meta::CPAN
title=>$page,
token=>$edittoken,
reason=>$reason,
protections=>"edit=$editlvl|move=$movelvl",
expiry=>$time };
$hash->{'cascade'}=$cascade if ($cascade);
$res = $self->{api}->api( $hash );
return $res;
}
view release on metacpan or search on metacpan
lib/Persistence/Manual/Relationship.pm view on Meta::CPAN
entity 'dept';
column deptno => has('$.id');
column dname => has('$.name');
to_one 'address' => (
attribute => has ('$.address', associated_class => 'Address'),
cascade => ALL,
fetch_method => EAGER,
);
=item many_to_one
lib/Persistence/Manual/Relationship.pm view on Meta::CPAN
column empno=> has('$.id');
column ename => has('$.name');
column job => has '$.job';
to_one 'dept' => (
attribute => has ('$.dept', associated_class => 'Department'),
cascade => ALL,
fetch_method => EAGER,
);
package Department;
use Abstract::Meta::Class ':all';
lib/Persistence/Manual/Relationship.pm view on Meta::CPAN
Note: Bidirectional relationship in this case requires reference on Dept object:
one_to_many 'emp' => (
attribute => has('@.employees' => (associated_class => 'Employee')),
fetch_method => EAGER,
cascade => ALL,
);
=item one_to_many
lib/Persistence/Manual/Relationship.pm view on Meta::CPAN
column deptno => has('$.id');
column dname => has('$.name');
one_to_many 'emp' => (
attribute => has('@.employees' => (associated_class => 'Employee')),
fetch_method => EAGER,
cascade => ALL,
);
package Employee;
use Abstract::Meta::Class ':all';
use Persistence::ORM ':all';
lib/Persistence/Manual/Relationship.pm view on Meta::CPAN
Note: Bidirectional relationship in this case requires reference on Employee object:
to_one 'dept' => (
attribute => has ('$.dept', associated_class => 'Department'),
cascade => ALL,
fetch_method => EAGER,
);
=item many_to_many
lib/Persistence/Manual/Relationship.pm view on Meta::CPAN
many_to_many 'project' => (
attribute => has('%.projects' => (associated_class => 'Project'), index_by => 'name'),
join_entity_name => 'emp_project',
fetch_method => LAZY,
cascade => ALL,
);
package Project;
use Abstract::Meta::Class ':all';
use Persistence::ORM ':all';
view release on metacpan or search on metacpan
share/static/jquery-1.7.2.js view on Meta::CPAN
if ( elem.style ) {
display = elem.style.display;
// Reset the inline display of this element to learn if it is
// being hidden by cascaded rules or not
if ( !jQuery._data(elem, "olddisplay") && display === "none" ) {
display = elem.style.display = "";
}
// Set elements which have been overridden with display: none
view release on metacpan or search on metacpan
lib/Pinto/Remote/SelfContained/App.pm view on Meta::CPAN
encoding => 'gzip',
}];
},
opt_spec => [
[ 'author=s' => 'The ID of the archive author' ],
[ 'cascade' => 'Always pick latest upstream package' ],
[ 'diff-style=s' => 'Set style of diff reports' ],
[ 'dry-run' => 'Do not commit any changes' ],
[ 'message|m=s' => 'Message to describe the change' ],
[ 'no-fail' => 'Do not fail when there is an error' ],
[ 'no-index|x=s@' => 'Do not index matching packages' ],
lib/Pinto/Remote/SelfContained/App.pm view on Meta::CPAN
$opts->{cpanm_options}{'local-lib'} = $_ for grep defined, delete $opts->{local_lib};
$opts->{cpanm_options}{'local-lib-contained'} = $_ for grep defined, delete $opts->{local_lib_contained};
return targets => [@_];
},
opt_spec => [
[ 'cascade' => 'Always pick latest upstream package' ],
[ 'cpanm-exe|cpanm=s' => 'Path to the cpanm executable' ],
[ 'cpanm-options|o=s@' => 'name=value pairs of cpanm options' ],
[ 'diff-style=s' => 'Set style of diff reports' ],
[ 'local-lib|l=s' => 'install into a local lib directory' ],
[ 'local-lib-contained|L=s' => 'install into a contained local lib directory' ],
lib/Pinto/Remote/SelfContained/App.pm view on Meta::CPAN
pull => {
summary => 'pull archives from upstream repositories',
usage_desc => '%c %o TARGET...',
args => 'targets*',
opt_spec => [
[ 'cascade' => 'Always pick latest upstream package' ],
[ 'diff-style=s' => 'Set style of diff reports' ],
[ 'dry-run' => 'Do not commit any changes' ],
[ 'message|m=s' => 'Message to describe the change' ],
[ 'no-fail' => 'Do not fail when there is an error' ],
[ 'recurse!' => 'Recursively pull prereqs (negatable)' ],
lib/Pinto/Remote/SelfContained/App.pm view on Meta::CPAN
summary => 'update packages to latest versions',
usage_desc => '%c %o TARGET...',
args => 'targets*',
opt_spec => [
[ 'all' => 'Update all packages in the stack' ],
[ 'cascade' => 'Always pick latest upstream package' ],
[ 'diff-style=s' => 'Set style of diff reports' ],
[ 'dry-run' => 'Do not commit any changes' ],
[ 'force' => 'Force update, even if pinned' ],
[ 'message|m=s' => 'Message to describe the change' ],
[ 'no-fail' => 'Do not fail when there is an error' ],
view release on metacpan or search on metacpan
lib/App/Pinto/Command/add.pm view on Meta::CPAN
sub opt_spec {
my ( $self, $app ) = @_;
return (
[ 'author=s' => 'The ID of the archive author' ],
[ 'cascade' => 'Always pick latest upstream package' ],
[ 'dry-run' => 'Do not commit any changes' ],
[ 'message|m=s' => 'Message to describe the change' ],
[ 'no-fail' => 'Do not fail when there is an error' ],
[ 'no-index|x=s@' => 'Do not index matching packages' ],
[ 'recurse!' => 'Recursively pull prereqs (negatable)' ],
lib/App/Pinto/Command/add.pm view on Meta::CPAN
two ASCII letters followed by zero or more ASCII letters, digits, or
hyphens). Defaults to the C<user> attribute specified in your F<~/.pause>
configuration file if such file exists. Otherwise, defaults to your
current login username.
=item --cascade
!! THIS OPTION IS EXPERIMENTAL !!
When searching for a prerequisite package, always take the latest
satisfactory version of the package found amongst B<all> the upstream
view release on metacpan or search on metacpan
lib/PkgForge/Registry/Schema/Result/Builder.pm view on Meta::CPAN
__PACKAGE__->has_many(
'build_logs',
'PkgForge::Registry::Schema::Result::BuildLog',
{ 'foreign.builder' => 'self.name' },
{ cascade_copy => 0, cascade_delete => 0 },
);
1;
__END__
view release on metacpan or search on metacpan
* Build.PL.in: added missing build_requires and set the Test::More
minimum version
2010-12-11 07:48 squinney@INF.ED.AC.UK
* registry-wipe.txt: cascade everything
2010-12-11 07:45 squinney@INF.ED.AC.UK
* registry-wipe.txt: updated wipe list
view release on metacpan or search on metacpan
lib/Plack/App/Directory/Markdown.pm view on Meta::CPAN
<script src="https://cdn.rawgit.com/google/code-prettify/master/loader/run_prettify.js"></script>
<script>$(function(){$('pre > code').addClass('prettyprint');});</script>
</body>
@@ index.tx
: cascade base;
: override body -> {
<h1>Index of
: for process_path($path) -> $part {
/ <a href="<: $part.link :>"><: $part.name :></a>
: }
lib/Plack/App/Directory/Markdown.pm view on Meta::CPAN
: }
</ul>
: } # endblock body
@@ md.tx
: cascade base;
: override body -> {
<h1>
: for process_path($path) -> $part {
/ <a href="<: $part.link :>"><: $part.name :></a>
: }
view release on metacpan or search on metacpan
local/lib/perl5/PPI/Tokenizer.pm view on Meta::CPAN
delete $self->{line_length};
return 0;
}
# In the scan version, just set the cursor to the end
# of the line, and the rest should just cascade out.
$self->{line_cursor} = $self->{line_length};
return 0;
}
# Populate the appropriate variables
view release on metacpan or search on metacpan
share/js/jquery.js view on Meta::CPAN
values[ index ] = data_priv.get( elem, "olddisplay" );
display = elem.style.display;
if ( show ) {
// Reset the inline display of this element to learn if it is
// being hidden by cascaded rules or not
if ( !values[ index ] && display === "none" ) {
elem.style.display = "";
}
// Set elements which have been overridden with display: none
view release on metacpan or search on metacpan
lib/Plack/Middleware/ConsoleLogger.pm view on Meta::CPAN
my @logs;
$env->{'psgix.logger'} = sub {
my $args = shift;
push @logs, $args;
# TODO cascade?
};
$self->response_cb($self->app->($env), sub {
my $res = shift;
view release on metacpan or search on metacpan
t/basic/index.html view on Meta::CPAN
: cascade 'wrapper.tx'
: override content -> {
<h1>Hello world</h1>
: }
view release on metacpan or search on metacpan
lib/Plack/App/Cascade.pm view on Meta::CPAN
use Plack::App::Cascade;
use Plack::App::URLMap;
use Plack::App::File;
# Serve static files from multiple search paths
my $cascade = Plack::App::Cascade->new;
$cascade->add( Plack::App::File->new(root => "/www/example.com/foo")->to_app );
$cascade->add( Plack::App::File->new(root => "/www/example.com/bar")->to_app );
my $app = Plack::App::URLMap->new;
$app->map("/static", $cascade);
$app->to_app;
=head1 DESCRIPTION
Plack::App::Cascade is a Plack middleware component that compounds