Result:
found more than 544 distributions - search limited to the first 2001 files matching your query
( run in 2.355 )
Games-Pandemic
view release on metacpan or search on metacpan
lib/Games/Pandemic/Tk/Main.pm view on Meta::CPAN
sub _build_menu {
my ($self, $mnuname, $mnulabel, @submenus) = @_;
my $menubar = $self->_w('menubar');
my $s = $self->_session;
my $menu = $menubar->cascade(-label => $mnulabel);
foreach my $item ( @submenus ) {
my ($name, $icon, $accel, $label) = @$item;
# separators are easier
if ( $name eq '---' ) {
Games-Risk
view release on metacpan or search on metacpan
lib/Games/Risk/Tk/Main.pm view on Meta::CPAN
sub _build_menu {
my ($self, $mnuname, $mnulabel, @submenus) = @_;
my $menubar = $self->_w('menubar');
my $s = $self->_session;
my $menu = $menubar->cascade(-label => $mnulabel);
foreach my $item ( @submenus ) {
my ($name, $icon, $accel, $label) = @$item;
# separators are easier
if ( $name eq '---' ) {
Games-Sudoku-Component-TkPlayer
view release on metacpan or search on metacpan
lib/Games/Sudoku/Component/TkPlayer/View.pm view on Meta::CPAN
my $this = shift;
my $mw = $this->{mw};
$mw->configure(-menu => my $menu = $mw->Menu);
$menu->cascade(
-label => '~Game',
-menuitems => $this->create_menu_file,
-tearoff => 0,
);
$menu->cascade(
-label => '~Hint',
-menuitems => $this->create_menu_hint,
-tearoff => 0,
);
}
Games-Word-Wordlist-Enable
view release on metacpan or search on metacpan
lib/Games/Word/Wordlist/Enable.pm view on Meta::CPAN
cartularies cartulary cartwheel cartwheeled cartwheeler cartwheelers
cartwheeling cartwheels caruncle caruncles carvacrol carvacrols carve carved
carvel carvels carven carver carvers carves carving carvings carwash carwashes
caryatic caryatid caryatides caryatids caryopses caryopsides caryopsis
caryotin caryotins casa casaba casabas casas casava casavas casbah casbahs
cascabel cascabels cascable cascables cascade cascaded cascades cascading
cascara cascaras cascarilla cascarillas case casease caseases caseate caseated
caseates caseating caseation caseations casebearer casebearers casebook
casebooks cased casefied casefies casefy casefying caseic casein caseinate
caseinates caseins caseload caseloads casemate casemates casement casements
caseose caseoses caseous casern caserne casernes caserns cases casette
Gedcom
view release on metacpan or search on metacpan
{
my ($record, $parent, $ind) = @_;
# TODO - fix this tag
my $tag = defined $parent ? "${parent}_$record->{tag}1" : "";
my $canv = $Top->{_canv};
my $cascade = [];
push @$cascade,
[
Button => "Self",
-state => has_entry($tag) ? "disabled" : "normal",
-command => sub
{
add_show_menu($ind || $record);
}
]
if defined $parent;
my %c;
push @$cascade,
map {
my $t = $_->{tag} . ++$c{$_->{tag}};
@{$_->{children}}
? [
Cascade => get_name($t),
]
}
}
sort { get_name($a->{tag}) cmp get_name($b->{tag}) }
@{$record->{children}};
# print "returning ", Dumper $cascade;
$cascade;
}
sub add_menu_children($;$$)
{
my ($grammar, $parent, $menu_items) = @_;
# print "grammar is $grammar->{tag}\n";
my $tag = defined $parent ? "${parent}_$grammar->{tag}1" : "";
my $cascade = [];
push @$cascade,
[
Button => "Self",
# -state => has_entry($tag) ? "disabled" : "normal",
-command => sub
{
create_record($Top->{_canv}, $t);
add_show_menu($Rec);
}
]
if $parent;
push @$cascade,
map {
my $c = $grammar->child($_);
my $t = $_;
# print "child <$t> in <$tag>\n";
(@{$c->{children}} &&
]
}
}
sort { get_name($a) cmp get_name($b) }
keys %{$grammar->valid_children};
# print "returning ", Dumper $cascade;
if (@$cascade <= 20)
{
unshift @$cascade, @$menu_items if $menu_items;
return $cascade;
}
my $index = [];
while (@$cascade)
{
my @items = splice(@$cascade, 0, @$cascade > 20 ? 20 : @$cascade);
push @$index,
[
Cascade => "$items[0][1] - $items[-1][1]",
-menuitems => \@items,
];
GenOO
view release on metacpan or search on metacpan
cookbook/08-Test_Suite.md view on Meta::CPAN
return \@test_objects;
}
```
Given the above test classes, when `Test::Person::Employee` is run it will successfully test for `fisrt_name` and `salary`.
See how `John` cascades throught the inheritance tree?
# Using Test::Class::Moose
As you may have noticed, the code in the previous example is a little bit scetchy. The reason is that the method `Test::Person::Employee::test_objects` uses the instantiated objects provided by `Test::Person::test_objects` to just access the data. It...
Using these two new methods and `Test::Class::Moose` the above code for `Person` becomes:
Genezzo
view release on metacpan or search on metacpan
lib/Genezzo/Parse/SQL.pm view on Meta::CPAN
=item table constraint, storage clause
=item constraint attributes - deferrable, disable
=item delete cascade referential action
=item maybe can collapse qualified join with qj_leftop?
=item table expr optional column list
Geo-OGC-Service-WMTS
view release on metacpan or search on metacpan
lib/Geo/OGC/Service/WMTS.pm view on Meta::CPAN
my $bb = $set->{BoundingBox}; # with this QGIS does not show tiles at correct locations
$bb = $projection->{extent};
$writer->element(Layer => [[Title => 'TileCache Layers'],
[Layer => {queryable => 0, opaque => 0, cascaded => 1},
[[Name => $set->{Layers}],
[Title => $set->{Layers}],
[SRS => $set->{SRS}],
[Format => $set->{Format}],
[BoundingBox => $bb]
Getopt-Alt
view release on metacpan or search on metacpan
lib/Getopt/Alt.pm view on Meta::CPAN
The aim of C<Getopt::Alt> is to provide an alternative to L<Getopt::Long> that
allows a simple command line program to easily grow in complexity. L<Getopt::Lon>
can be expanded from a simple command line option passer to allow sub-commands.
Option processing may stop at the sub-command or with the help of modules can
cascade the processing into the sub command's module or config.
The simple usage is quite similar to L<Getopt::Long>:
In C<Getopt::Long> you might get your options like:
Getopt-ArgvFile
view release on metacpan or search on metacpan
ArgvFile.pm view on Meta::CPAN
If there is no I<HOME> environment variable, the I<home> setting takes no effect
to avoid trouble accessing the root directory.
B<Cascades>
The function supports multi-level (or so called I<cascaded>) option files.
If a filename in an option file hint starts with a "@" again, this complete
name is the resolution written back to @ARGV - assuming there will be
another utility reading option files.
Examples:
@rfile rfile will be opened, its contents is
made part of @ARGV.
@@rfile cascade: "@rfile" is written back to
@ARGV assuming that there is a subsequent
tool called by the script to which this
hint will be passed to solve it by an own
call of argvFile().
The number of cascaded hints is unlimited.
B<Processing an alternative array>
Although the function was designed to process @ARGV, it is possible to
process another array as well if you prefer. To do this, simply pass
ArgvFile.pm view on Meta::CPAN
# with -options declared to be a file option,
# these sequences are equivalent
@file
-options file
# five equivalent cascades
@@@@file
-options @@@file
-options -options @@file
-options -options -options @file
-options -options -options -options file
ArgvFile.pm view on Meta::CPAN
# remove the option hint
$arrayRef->[$i]=~s/$prefix//;
# if there is still an option file hint in the name of the file,
# this is a cascaded hint - insert it with a special temporary
# hint (has to be different from $prefix to avoid a subsequent solution
# by this loop)
push(@c, $arrayRef->[$i]), next if $arrayRef->[$i]=~s/^$prefix/$maskString/;
# skip nonexistent or recursively nested files
ArgvFile.pm view on Meta::CPAN
# replace original array by expanded array
@$arrayRef=@c;
}
# reset hint character in cascaded hints to $prefix
@$arrayRef=map {s/^$maskString/$prefix/; $_} @$arrayRef;
}
# allow one line invokation via "use", but make sure to keep backwards compatibility to
Gfsm-XL
view release on metacpan or search on metacpan
# Below is stub documentation for your module. You'd better edit it!
=pod
=head1 NAME
Gfsm::XL - Perl interface to the libgfsmxl finite-state cascade library
=head1 SYNOPSIS
use Gfsm;
use Gfsm::XL;
##... stuff happens
=head1 DESCRIPTION
The Gfsm::XL module provides an object-oriented interface to the libgfsmxl
library for finite-state cascade lookup operations.
=head1 SEE ALSO
Gfsm(3perl),
perl(1),
Gfsm
view release on metacpan or search on metacpan
v0.0210 (r275..r317) 2007-08-07 17:09:42 +0200 (Tue, 07 Aug 2007)
+ added ArcIter clone() and copy() methods
v0.0209 (r265..r279) 2007-02-23 18:58:05 +0100 (Fri, 23 Feb 2007)
+ added low-level composition API for perl-side cascades
v0.0208 (r244..r268) 2006-05-31 15:03:58 +0200 (Wed, 31 May 2006)
+ added native alphabet load/save methods
+ fixed alphabet bug w/ utf8 and object keys
GraphQL-Plugin-Convert-DBIC
view release on metacpan or search on metacpan
t/lib-dbicschema/Schema/Result/Blog.pm view on Meta::CPAN
__PACKAGE__->set_primary_key("id");
__PACKAGE__->has_many(
"blog_tags",
"Schema::Result::BlogTag",
{ "foreign.blog" => "self.id" },
{ cascade_copy => 0, cascade_delete => 0 },
);
# Created by DBIx::Class::Schema::Loader v0.07015 @ 2012-02-05 21:35:07
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Pu8So1Y80nFfvuHrqLpqag
t/lib-dbicschema/Schema/Result/Blog.pm view on Meta::CPAN
);
__PACKAGE__->has_many(
"tags", "Schema::Result::BlogTag",
{"foreign.blog" => "self.id"},
{cascade_copy => 0, cascade_delete => 0},
);
sub url_title {
my $self = shift;
my $title = $self->title;
Graphics-VTK
view release on metacpan or search on metacpan
examples/old_examples/imaging/ViewerApp.pl view on Meta::CPAN
# menus
# menu .top.menu -type menubar
# menu .top.menu.file -tearoff 0
# menu .top.menu.filters -title "Filters"
# menu .top.menu.help -tearoff 0
$MW->{'.top.menu'}->cascade('-label',"File",'-menu','.top.menu.file');
$MW->{'.top.menu'}->cascade('-label',"Filters",'-menu','.top.menu.filters');
$MW->{'.top.menu'}->cascade('-label',"Help",'-menu','.top.menu.help');
$MW->{'.top.menu.file'}->command('-label',"Quit",'-command',
sub
{
exit();
}
Grimlock
view release on metacpan or search on metacpan
lib/Grimlock/Schema/Result/UserRole.pm view on Meta::CPAN
is_nullable => 0,
};
belongs_to 'user' => 'Grimlock::Schema::Result::User', 'userid',
{
cascade_delete => 1,
cascade_update => 1
};
belongs_to 'role' => 'Grimlock::Schema::Result::Role', 'roleid',
{
cascade_delete => 1,
cascade_update => 1
};
primary_key ("userid", "roleid");
1;
GrowthForecast
view release on metacpan or search on metacpan
views/add_complex.tx view on Meta::CPAN
: cascade base
: around page_header -> {
<div class="row">
<div class="col-md-8">
<h1>Add Complex Graph</h1>
</div>
Gtk2-Ex-DbLinker-DbTools
view release on metacpan or search on metacpan
lib/Gtk2/Ex/DbLinker/RdbDataManager.pm view on Meta::CPAN
sub get_field {
my ( $self, $id ) = @_;
my $pos = $self->{row}->{pos};
return
unless defined $pos
; #prevents cascade of errors when get_field is called on inexisting row
my $last = $self->row_count;
#$self->{log}->debug( "get_field: pos ", $pos, " last : ", $last );
my $row;
if ( $pos < $last ) {
Gtk2-Ex-DbLinker
view release on metacpan or search on metacpan
Fields added with columns or +columns to read data from joined tables
These fields are readonly.
0.096 Bug corrected in Form
0.097 Form
auto_apply can be defined (defaults to true)
add_childform to cascade auto_apply down to child form or datasheet
has_changed return true if children forms or datasheets have been changed in the form but not applied to the database
0.098 Form save return 1 (success) or 0 (failure)
DbcDataManager save return 1 (success) or 0 (failure)
Removed mailing support (and the list alltogether)
0.100 Split the distribution:
Gtk2-Ex-ErrorTextDialog
view release on metacpan or search on metacpan
lib/Gtk2/Ex/ErrorTextDialog.pm view on Meta::CPAN
+------------------------------------+
See L<Gtk2::Ex::ErrorTextDialog::Handler> for functions hooking Glib
exceptions and Perl warnings to display in an ErrorTextDialog.
ErrorTextDialog is good if there might be a long cascade of messages from
one problem, or errors repeated on every screen draw. In that case the
dialog scrolls along but the app might still mostly work.
The Save-As button lets the user write the messages to a file, for example
for a bug report. Cut-and-paste works in the usual way too.
Gtk2-Ex-WYSIWYG
view release on metacpan or search on metacpan
lib/Gtk2/Ex/WYSIWYG.pm view on Meta::CPAN
# _on_remove_tag - to facilitate undo and redo, record tags removals.
# NOTE: the signal handler recieves a start and end range exactly matching
# what was used in the $buf->remove_tag(...) call, which may be wrong
# if the range includes bits where the tag wasn't applied in the first
# place. All tag removals in code should therefore be done with the
# _remove_tag or _remove_tag_cascade functions within this package
##########
sub _on_remove_tag {
my $self = shift;
my ($buf, $tag, $s, $e) = @_;
$self->_record_undo(UNDO_REMOVE_TAG, $s->get_offset, $e->get_offset, $tag)
lib/Gtk2/Ex/WYSIWYG.pm view on Meta::CPAN
$buf->get_tag_table->
foreach(sub {
my ($tag) = @_;
return if not $self->_is_my_tag($tag);
if (exists $self->{Active}{$tag->get_property('name')}) {
$self->_apply_tag_cascade($tag, $start, $iter);
} else {
$self->_remove_tag_cascade($tag, $start, $iter);
}
});
# What if this insert just bridged two paragraphs?!
$self->_normalise_paragraph($start, $iter);
$self->_set_active_from_text;
lib/Gtk2/Ex/WYSIWYG.pm view on Meta::CPAN
my ($s, $e) = $self->_get_current_bounds_for_tag($tname);
if ($self->{Buttons}{$name}->get_active) {
# Switching on
my $tag = $self->_create_tag($self->_full_tag_name($tname),
%{$TAGS{$tname}{Look}});
$self->_apply_tag_cascade($tag, $s, $e);
$self->_normalise_paragraph($s, $e)
if ($tname eq 'asis' or $tname eq 'pre') and not $s->equal($e);
$self->_set_active_from_text if not $s->equal($e);
$self->{Active}{$tag->get_property('name')} = undef;
$self->_set_buttons_from_active;
} else {
# Switching off
my $tag = $self->_full_tag_name($tname);
$self->_remove_tag_cascade($tag, $s, $e);
$self->_set_active_from_text if not $s->equal($e);
delete($self->{Active}{$tag});
$self->_set_buttons_from_active;
}
$self->_commit_record_undo if $commit;
lib/Gtk2/Ex/WYSIWYG.pm view on Meta::CPAN
for my $tag (@{$BUTTONS{$bname}{Tags}}) {
next if not exists $TAGS{$tag->[0]};
($s, $e) = $self->_get_current_bounds_for_tag($tag->[0])
if not defined $s;
last if $s->equal($e);
$self->_remove_tag_cascade($self->_full_tag_name($tag->[0]), $s, $e);
}
my $ftname = $self->_full_tag_name($tname);
my $tag = $self->_create_tag($ftname, %{$TAGS{$tname}{Look}})
if $display ne $BUTTONS{$bname}{Default};
if ($s->equal($e)) {
lib/Gtk2/Ex/WYSIWYG.pm view on Meta::CPAN
delete($self->{Active}{$self->_full_tag_name($tag->[0])});
}
$self->{Active}{$ftname} = undef;
$self->_set_buttons_from_active;
} else {
$self->_apply_tag_cascade($tag, $s, $e)
if $display ne $BUTTONS{$bname}{Default};
# Update subscript and superscript over this range!
# Maybe meld this into apply_tag_cascade?
if ($tname =~ /^h[1-5]\z/) {
$self->_update_superscript($s, $e, undef, $TAGS{$tname}{Look}{scale});
$self->_update_subscript($s, $e, undef, $TAGS{$tname}{Look}{scale});
} elsif ($tname eq 'h0') {
$self->_update_superscript($s, $e, undef, 1);
lib/Gtk2/Ex/WYSIWYG.pm view on Meta::CPAN
if ($s->equal($e)) {
for my $tag (@{$BUTTONS{$bname}{Tags}}) {
delete($self->{Active}{$self->_full_tag_name('font', $tag)});
}
} elsif ($display ne $BUTTONS{$bname}{Default}) {
$self->_apply_tag_cascade($tag, $s, $e);
}
$self->{Active}{$ftname} = undef;
$self->_set_buttons_from_active;
$self->_commit_record_undo if $commit;
return 0;
lib/Gtk2/Ex/WYSIWYG.pm view on Meta::CPAN
if (not $nosel) {
$buf->get_tag_table->
foreach(sub {
my ($tag) = @_;
return if not $self->_is_my_tag($tag);
$self->_remove_tag_cascade($tag, $s, $e)
if $self->_short_tag_name($tag) eq $tname;
});
# Update super/subscript tags for this range!
$self->_update_subscript($s, $e, $size);
$self->_update_superscript($s, $e, $size);
lib/Gtk2/Ex/WYSIWYG.pm view on Meta::CPAN
delete($self->{Active}{$k})
if $self->_short_tag_name($k) eq $BUTTONS{$name}{Tag};
}
$self->{Active}{$tag->get_property('name')} = undef;
} else {
$self->_apply_tag_cascade($tag, $s, $e);
$self->_set_active_from_text;
}
$self->_set_buttons_from_active;
$self->_commit_record_undo if $commit;
return 0;
lib/Gtk2/Ex/WYSIWYG.pm view on Meta::CPAN
my ($sz, $sc);
for my $tag ($s->get_tags) {
next if not $self->_is_my_tag($tag);
my $name = $self->_short_tag_name($tag);
if ($name eq 'superscript' or $name eq 'subscript') {
$self->_remove_tag_cascade($tag, $s, $e);
next;
}
if (not defined $sz and $name eq 'size') {
($sz) = $self->_tag_args($tag, 1);
} elsif (not defined $sc and $name =~ /^h[1-5]\z/) {
lib/Gtk2/Ex/WYSIWYG.pm view on Meta::CPAN
$sz = $BUTTONS{Size}{Default} if not defined $sz;
$sc = 1 if not $sc;
my $n = $s->copy;
$n->forward_to_tag_toggle(undef);
$n = $e->copy if $n->compare($e) == 1;
$self->_apply_tag_cascade($self->_create_sub_super_tag($type, $sz, $sc),
$s, $n);
return $n;
}
sub _create_sub_super_tag {
lib/Gtk2/Ex/WYSIWYG.pm view on Meta::CPAN
$buf->get_tag_table->
foreach(sub {
my ($tag) = @_;
return if (not $self->_is_my_tag($tag) or
$self->_short_tag_name($tag) ne 'superscript');
$self->_remove_tag_cascade($tag, $s, $e);
});
$self->_set_active_from_text;
$self->_set_buttons_from_active;
}
lib/Gtk2/Ex/WYSIWYG.pm view on Meta::CPAN
$buf->get_tag_table->
foreach(sub {
my ($tag) = @_;
return if (not $self->_is_my_tag($tag) or
$self->_short_tag_name($tag) ne 'subscript');
$self->_remove_tag_cascade($tag, $s, $e);
});
$self->_set_active_from_text;
$self->_set_buttons_from_active;
}
lib/Gtk2/Ex/WYSIWYG.pm view on Meta::CPAN
my $s = $here->get_offset;
$buf->insert($here, $txt);
$s = $buf->get_iter_at_offset($s);
$e = $s->copy;
$e->forward_chars(length($txt));
$self->_apply_tag_cascade($tag, $s, $e);
} else {
my $off = $s->get_offset;
$buf->delete($s, $e); ## GET TAGS OVER THIS RANGE
$s = $buf->get_iter_at_offset($off);
$buf->insert($s, $txt); ## APPLY TAGS OVER THIS RANGE
$s = $buf->get_iter_at_offset($off);
$e = $s->copy;
$e->forward_chars(length($txt));
$self->_apply_tag_cascade($tag, $s, $e);
$buf->select_range($s, $e);
}
}
sub _create_link {
lib/Gtk2/Ex/WYSIWYG.pm view on Meta::CPAN
my $self = shift;
my ($s, $e) = @_;
my $buf = $self->{Text}->get_buffer;
$buf->get_tag_table->foreach(sub {
my ($tag) = @_;
$self->_remove_tag_cascade($tag, $s, $e)
if ($self->_is_my_tag($tag) and
$self->_short_tag_name($tag) eq 'link');
}) if not $s->equal($e);
}
lib/Gtk2/Ex/WYSIWYG.pm view on Meta::CPAN
return if not $self->_is_my_tag($tag);
my $name = $self->_short_tag_name($tag);
return
if (not exists $TAGS{$name} or
$TAGS{$name}{Class} eq 'paragraph');
$self->_remove_tag_cascade($tag, $s, $e);
});
$self->_set_active_from_text;
}
$self->_set_buttons_from_active;
}
lib/Gtk2/Ex/WYSIWYG.pm view on Meta::CPAN
if not defined $tag;
$tag->{WYSIWYG} = undef; # Use this later to store data?
return $tag;
}
sub _apply_tag_cascade {
my $self = shift;
my ($tag, $start, $end) = @_;
my $buf = $self->{Text}->get_buffer;
$tag = $self->{Text}->get_buffer->get_tag_table->lookup($tag)
if not ref($tag);
lib/Gtk2/Ex/WYSIWYG.pm view on Meta::CPAN
$tag = $self->{Text}->get_buffer->get_tag_table->lookup($tag)
if not ref $tag;
$self->{Text}->get_buffer->apply_tag($tag, $start, $end) if defined $tag;
}
sub _remove_tag_cascade {
my $self = shift;
my ($tag, $start, $end) = @_;
# ONLY REMOVE THE TAG FROM THE AREAS IT IS APPLIED!
my $buf = $self->{Text}->get_buffer;
$self->_remove_tag($tag, $start, $end);
lib/Gtk2/Ex/WYSIWYG.pm view on Meta::CPAN
$self->_remove_tag($tag, $ps, $pe)
if (exists $TAGS{$name} and
$TAGS{$name}{Class} eq 'paragraph');
});
for my $tag (@apply) {
$self->_apply_tag_cascade($tag, $ps, $pe);
}
}
# Bounds fetching
HPC-Runner-Command-Plugin-Logger-Sqlite
view release on metacpan or search on metacpan
lib/HPC/Runner/Command/Plugin/Logger/Sqlite/Schema/Result/Job.pm view on Meta::CPAN
__PACKAGE__->has_many(
"tasks",
"HPC::Runner::Command::Plugin::Logger::Sqlite::Schema::Result::Task",
{ "foreign.job_fk" => "self.job_pi" },
{ cascade_copy => 0, cascade_delete => 0 },
);
# Created by DBIx::Class::Schema::Loader v0.07045 @ 2017-03-28 14:40:23
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:/WroaV1KhFwIpCDL7UwNmA
HPCI
view release on metacpan or search on metacpan
lib/HPCI/Env.pm view on Meta::CPAN
}
# always use the env (default to %ENV if nothing explicit)
use_env( $object->env );
HPCI uses multiple HPCI::Env objects that are cascaded. The Group's
env object (if any) is copied and modified for each Stage's own
env object.
=head1 ATTRIBUTES
lib/HPCI/Env.pm view on Meta::CPAN
builder => '_default_env_source',
);
sub _default_env_source {
my $self = shift;
return $self->_has_env_cascade ? $self->env_cascade->env_source : \%ENV;
}
=item * env_cascade Maybe[Object]
If this attribute is provided, then it will be used as an object
that does the Env role that provides the default env_source value.
The HPCI::Stage object specifies its Group object for this parameter
so that if any Group env parameters were set, they will get used
as a basis for the Stage.
=cut
has 'env_cascade' => (
is => 'ro',
isa => 'Maybe[Object]',
lazy => 1,
predicate => '_has_env_cascade',
default => undef,
);
=item * env_retain ArrayRef[Str]
lib/HPCI/Env.pm view on Meta::CPAN
if the values provided could end up "filtering" to a result that is
identical to the original %ENV.) (The "filtering" attributes are
env_source, env_retain, env_retain_pat, env_deletem env_delete_pat,
and env_set._
It is also true if there was an env_cascade object provided and it
had any filtering attributes initialized.
=cut
has 'has_any_env' => (
lib/HPCI/Env.pm view on Meta::CPAN
|| $self->_has_env_retain
|| $self->_has_env_retain_pat
|| $self->_has_env_remove
|| $self->_has_env_remove_pat
|| $self->_has_env_set
|| ($self->_has_env_cascade && $self->env_cascade->has_any_env);
}
=item * env HashRef[Str]
This is the hash resulting from the specified filtering and augmentation.
HTML-Chunks
view release on metacpan or search on metacpan
lib/HTML/Chunks.pm view on Meta::CPAN
sub init
{
my $self = shift;
$self->{crush} = 1;
$self->{cascade} = 1;
$self->{dataStack} = [];
$self->{chunk} = {};
$self->{default} = undef;
$self->read(@_) if @_;
lib/HTML/Chunks.pm view on Meta::CPAN
sub getDataValue
{
my ($self, $name) = (shift, shift);
my $value;
my $last = $self->{cascade} ? 0 : $#{$self->{dataStack}};
for (my $ndx = $#{$self->{dataStack}}; $ndx >= $last; $ndx--) {
if (exists($self->{dataStack}[$ndx]{$name})) {
$value = $self->{dataStack}[$ndx]{$name};
last;
lib/HTML/Chunks.pm view on Meta::CPAN
}
sub setCascade
{
my $self = shift;
my $old = $self->{cascade};
($self->{cascade}) = (@_);
return $old;
}
sub setDefaultDataValue
{
lib/HTML/Chunks.pm view on Meta::CPAN
email generation, you should turn this off to have chunks output
exactly as they are defined.
=item my $oldValue = $engine->setCascade(0);
Sets whether or not the engine lets data cascade into nested
calls to I<output>. For instance, if you output a chunk from
within a data element handling routine, any data that was
defined for the parent chunk will also be available to the
chunk currently being output. If that doesn't make sense,
don't worry about it. It's rare that you'd want to turn this
HTML-DOM
view release on metacpan or search on metacpan
.test4 { color: red; }
.test4 { color: green; }
.c { color: green; }
#twelve { font-size: 5px }
</style>
<link rel="help" href="http://www.w3.org/TR/CSS21/cascade.html#cascading-order" title="6.4.1 Cascading order">
<link rel="help" href="http://www.w3.org/TR/CSS21/cascade.html#specificity" title="6.4.3 Calculating a selector's specificity">
</head>
<body>
<ul>
<li> <span class="a" id=one> This should be green. </span> </li>
<li> <span class="b" id=two> This should be green. </span>
my $green = qr/^(?:green|#0(?:0ff0|f)0|rgb\(0%?\s*,\s*(?:100%|255)\s*,\s*0%?\))\z/i;
like $view->getComputedStyle($doc->getElementById($_))->color,
$green,
"cascade test $_ from t060401-c32-cascading-00-b.htm"
for qw/ one two three four five six seven eight nine ten
eleven /;
is $view->getComputedStyle($doc->getElementById('twelve'))
->fontSize, '5px', 'author overrides user and ua';
is $view->getComputedStyle($doc->getElementById('thirteen'))
a { font-size: 1px !important }
span { font-size: 23px }
div { text-transform: none }
div:first-line { text-transform: uppercase }
</style>
<link rel="help" href="http://www.w3.org/TR/CSS21/cascade.html#important-rules" title="6.4.2 !important rules">
<link rel="help" href="http://www.w3.org/TR/CSS21/cascade.html#cascading-order" title="6.4.1 Cascading order">
</head>
<body>
<p> This line should be green. </p>
<p id="id1"> This line should be green. </p>
<p style="color: red;"> This line should be green. </p>
HTML-Element-Extended
view release on metacpan or search on metacpan
lib/HTML/ElementGlob.pm view on Meta::CPAN
to those available in an HTML::Element(3). All other methods get
passed blindly to the globbed children, which can be enhanced elements
with arbitrary methods, such as HTML::ElementSuper(3).
Element globs can contain other element globs. In such cases, the
plain methods will cascade down to the leaf children. 'glob_*' methods,
of course, will not be propogated to children globs. You will
have to rely on glob_content() to access those glob children and
access their 'glob_*' methods directly.
=head1 REQUIRES
HTML-FormFu-ExtJS
view release on metacpan or search on metacpan
t/lib/DBICTest/Schema/Artist.pm view on Meta::CPAN
__PACKAGE__->has_many( onekeys => 'DBICTest::Schema::OneKey' );
__PACKAGE__->has_many(
artist_undirected_maps => 'DBICTest::Schema::ArtistUndirectedMap',
[ {'foreign.id1' => 'self.artistid'}, {'foreign.id2' => 'self.artistid'} ],
{ cascade_copy => 0 } # this would *so* not make sense
);
sub sqlt_deploy_hook {
my ($self, $sqlt_table) = @_;
HTML-FormHandler-Model-DBIC
view release on metacpan or search on metacpan
t/lib/BookDB/Schema/Result/License.pm view on Meta::CPAN
);
__PACKAGE__->set_primary_key("license_id");
__PACKAGE__->has_many( 'user', 'BookDB::Schema::Result::User',
{ 'foreign.license_id' => 'self.license_id'},
{ cascade_delete => 0 } );
1;
HTML-ListToTree
view release on metacpan or search on metacpan
lib/HTML/ListToTree.pm view on Meta::CPAN
my @nextlevel = ();
my $entry = 0;
my $node;
#
# cascade the root document to all children that don't have a root
#
foreach my $i (0..$#$level) {
$node = $level->[$i];
die "UNEXPECTED ARRAY"
if (ref $node eq 'ARRAY');
HTML-Query
view release on metacpan or search on metacpan
lib/HTML/Query.pm view on Meta::CPAN
return wantarray ? @{$self->{elements}} : $self->{elements};
}
###########################################################################################################
# from CSS spec at http://www.w3.org/TR/CSS21/cascade.html#specificity
###########################################################################################################
# A selector's specificity is calculated as follows:
#
# * count the number of ID attributes in the selector (= a)
# * count the number of other attributes and pseudo-classes in the selector (= b)
lib/HTML/Query.pm view on Meta::CPAN
my @elements = $results->query($spec)->get_elements();
my $elements = $results->query($spec)->get_elements();
=head2 get_specificity()
Calculate the specificity for any given passed selector, a critical factor in determining how best to apply the cascade
A selector's specificity is calculated as follows:
* count the number of ID attributes in the selector (= a)
* count the number of other attributes and pseudo-classes in the selector (= b)
lib/HTML/Query.pm view on Meta::CPAN
The specificity is based only on the form of the selector. In particular, a selector of the form "[id=p33]" is counted
as an attribute selector (a=0, b=0, c=1, d=0), even if the id attribute is defined as an "ID" in the source document's DTD.
See the following spec for additional details:
L<http://www.w3.org/TR/CSS21/cascade.html#specificity>
=head2 size()
Returns the number of elements in the query.
HTML-T5
view release on metacpan or search on metacpan
if ( (rc >= 0 ) && configfile && *configfile ) {
rc = tidyLoadConfig( tdoc, configfile );
}
/* XXX I think this cascade is a bug waiting to happen */
if ( rc >= 0 ) {
rc = ( tidyOptSetValue( tdoc, TidyCharEncoding, "utf8" ) ? rc : -1 );
}
( run in 2.355 seconds using v1.01-cache-2.11-cpan-49f99fa48dc )