Result:
found more than 560 distributions - search limited to the first 2001 files matching your query
( run in 1.099 )
FreeWRL
view release on metacpan or search on metacpan
ARCHITECTURE view on Meta::CPAN
A. This happens in Events.pm (duh ;) as well as Scene.pm.
Basically, the function VRML::EventMachine::propagate_events (Events.pm)
is called at each event timestamp. This function first gets the
initial events from nodes and from mouse events, propagates the
event cascade, calls eventsProcessed and continues this until
no events remain.
Take note of the {RFields} member of a node -- this is a *tied*
hash (which looks like a normal perl hash (associative array) on top
but assignments to members and getting values of members translate
ARCHITECTURE view on Meta::CPAN
as well as generating events when setting field values. The line
$node->{EventModel}->put_event($node, $k, $value);
in the function VRML::FieldHash::STORE causes the new event to be queued
to be executed at the next step of the current event cascade.
Nodes receive events by the function VRML::Node::receive_event (Scene.pm)
which calls the function for that particular node (defined in VRMLNodes.pm)
to receive that event.
Freecell-App
view release on metacpan or search on metacpan
lib/Freecell/App/Tableau.pm view on Meta::CPAN
Initializes the Tableau with 8 columns and 21 rows of 0's
columns 0 .. 3 row 0 are the freecells
columns 4 .. 7 row 0 are the homecells D, C, H, S
columns 0 .. 7 rows 1 .. 20 are the cascades
=head2 from_token()
This creates a Tableau from the Key and Token built in C<to_token()>.
lib/Freecell/App/Tableau.pm view on Meta::CPAN
=item * Subtract the rank of all the top home cards.
=item * Subtract 1 for each empty freecell and empty column.
=item * Add 1 for each sequence break in the cascade
e.g. 6C 5H 4S 2C KD QS TH has 3 sequence breaks,
one major at 2C because the KD is greater than
the 2C.
=back
GO-TermFinder
view release on metacpan or search on metacpan
t/gene_association.sgd view on Meta::CPAN
SGD S000000618 SLM5 GO:0005739 SGD_REF:S000117178|PMID:16823961 IDA C YCR024C gene taxon:4932 20061212 SGD
SGD S000000618 SLM5 GO:0005739 SGD_REF:S000075100|PMID:14576278 IDA C YCR024C gene taxon:4932 20040928 SGD
SGD S000000618 SLM5 GO:0004816 SGD_REF:S000058439|PMID:9030748 ISS F YCR024C gene taxon:4932 20010301 SGD
SGD S000000618 SLM5 GO:0004816 SGD_REF:S000058439|PMID:9030748 IDA F YCR024C gene taxon:4932 20010301 SGD
SGD S000000618 SLM5 GO:0006412 SGD_REF:S000058439|PMID:9030748 IDA P YCR024C gene taxon:4932 20010301 SGD
SGD S000001409 SLN1 GO:0005886 SGD_REF:S000053117|PMID:8808622 ISS C histidine kinase osmosensor that regulates an osmosensing MAP kinase cascade, similar to bacterial two-component regulators YIL147C|YPD2 gene taxon:4932 20010118 SGD
SGD S000001409 SLN1 GO:0000155 SGD_REF:S000053117|PMID:8808622 TAS F histidine kinase osmosensor that regulates an osmosensing MAP kinase cascade, similar to bacterial two-component regulators YIL147C|YPD2 gene taxon:4932 20010118 SGD
SGD S000001409 SLN1 GO:0004673 SGD_REF:S000053117|PMID:8808622 IDA F histidine kinase osmosensor that regulates an osmosensing MAP kinase cascade, similar to bacterial two-component regulators YIL147C|YPD2 gene taxon:4932 20030226 SGD
SGD S000001409 SLN1 GO:0005034 SGD_REF:S000053117|PMID:8808622 TAS F histidine kinase osmosensor that regulates an osmosensing MAP kinase cascade, similar to bacterial two-component regulators YIL147C|YPD2 gene taxon:4932 20010118 SGD
SGD S000001409 SLN1 GO:0005034 SGD_REF:S000073815|PMID:12821642 IDA F histidine kinase osmosensor that regulates an osmosensing MAP kinase cascade, similar to bacterial two-component regulators YIL147C|YPD2 gene taxon:4932 20040430 SGD
SGD S000001409 SLN1 GO:0006468 SGD_REF:S000053117|PMID:8808622 TAS P histidine kinase osmosensor that regulates an osmosensing MAP kinase cascade, similar to bacterial two-component regulators YIL147C|YPD2 gene taxon:4932 20010118 SGD
SGD S000001409 SLN1 GO:0007234 SGD_REF:S000053117|PMID:8808622 IDA P histidine kinase osmosensor that regulates an osmosensing MAP kinase cascade, similar to bacterial two-component regulators YIL147C|YPD2 gene taxon:4932 20030226 SGD
SGD S000001409 SLN1 GO:0042542 SGD_REF:S000059181|PMID:11084293 IMP P histidine kinase osmosensor that regulates an osmosensing MAP kinase cascade, similar to bacterial two-component regulators YIL147C|YPD2 gene taxon:4932 20030213 SGD
SGD S000028437 SLO1 GO:0005737 SGD_REF:S000072666|PMID:12620189 NAS C YER180C-A gene taxon:4932 20030307 SGD
SGD S000028437 SLO1 GO:0005083 SGD_REF:S000072666|PMID:12620189 ISS F YER180C-A gene taxon:4932 20030307 SGD
SGD S000028437 SLO1 GO:0006623 SGD_REF:S000072666|PMID:12620189 IPI P YER180C-A gene taxon:4932 20030307 SGD
SGD S000005680 YOR154W GO:0005575 SGD_REF:S000069584 ND C integral membrane protein YOR154W gene taxon:4932 20030421 SGD
SGD S000005680 YOR154W GO:0003674 SGD_REF:S000069584 ND F integral membrane protein YOR154W gene taxon:4932 20030421 SGD
t/gene_association.sgd view on Meta::CPAN
SGD S000000487 SSH1 GO:0000723 SGD_REF:S000114973|PMID:16552446 IMP P YBR283C gene taxon:4932 20060615 SGD
SGD S000000487 SSH1 GO:0006613 SGD_REF:S000058467|PMID:10921929 TAS P YBR283C gene taxon:4932 20010118 SGD
SGD S000001607 SSH4 GO:0005575 SGD_REF:S000069584 ND C YKL124W|MLF4 gene taxon:4932 20021009 SGD
SGD S000001607 SSH4 GO:0003674 SGD_REF:S000069584 ND F YKL124W|MLF4 gene taxon:4932 20021009 SGD
SGD S000001607 SSH4 GO:0008150 SGD_REF:S000069584 ND P YKL124W|MLF4 gene taxon:4932 20021009 SGD
SGD S000003996 SSK1 GO:0005737 SGD_REF:S000053117|PMID:8808622 TAS C two-component signal transducer that with Sln1p regulates osmosensing MAP kinase cascade(suppressor of sensor kinase) YLR006C gene taxon:4932 20030213 SGD
SGD S000003996 SSK1 GO:0000156 SGD_REF:S000056287|PMID:9482735 TAS F two-component signal transducer that with Sln1p regulates osmosensing MAP kinase cascade(suppressor of sensor kinase) YLR006C gene taxon:4932 20010118 SGD
SGD S000003996 SSK1 GO:0008047 SGD_REF:S000056287|PMID:9482735 TAS F two-component signal transducer that with Sln1p regulates osmosensing MAP kinase cascade(suppressor of sensor kinase) YLR006C gene taxon:4932 20010118 SGD
SGD S000003996 SSK1 GO:0007234 SGD_REF:S000048289|PMID:8183345 TAS P two-component signal transducer that with Sln1p regulates osmosensing MAP kinase cascade(suppressor of sensor kinase) YLR006C gene taxon:4932 20010118 SGD
SGD S000003996 SSK1 GO:0007234 SGD_REF:S000053117|PMID:8808622 IDA P two-component signal transducer that with Sln1p regulates osmosensing MAP kinase cascade(suppressor of sensor kinase) YLR006C gene taxon:4932 20030226 SGD
SGD S000003996 SSK1 GO:0042542 SGD_REF:S000059181|PMID:11084293 IMP P two-component signal transducer that with Sln1p regulates osmosensing MAP kinase cascade(suppressor of sensor kinase) YLR006C gene taxon:4932 20030213 SGD
SGD S000005314 SSK2 GO:0005829 SGD_REF:S000070407|PMID:12181352 IDA C MAP kinase kinase kinase, activator of Pbs2p YNR031C gene taxon:4932 20030214 SGD
SGD S000005314 SSK2 GO:0005934 SGD_REF:S000075961|PMID:12857882 IDA C MAP kinase kinase kinase, activator of Pbs2p YNR031C gene taxon:4932 20050303 SGD
SGD S000005314 SSK2 GO:0005935 SGD_REF:S000075961|PMID:12857882 IDA C MAP kinase kinase kinase, activator of Pbs2p YNR031C gene taxon:4932 20050303 SGD
SGD S000005314 SSK2 GO:0004709 SGD_REF:S000051778|PMID:7624781 TAS F MAP kinase kinase kinase, activator of Pbs2p YNR031C gene taxon:4932 20010118 SGD
SGD S000005314 SSK2 GO:0000168 SGD_REF:S000051778|PMID:7624781 TAS P MAP kinase kinase kinase, activator of Pbs2p YNR031C gene taxon:4932 20010118 SGD
GOBO
view release on metacpan or search on metacpan
GOBO/Graph.pm view on Meta::CPAN
return $n;
}
=head2 remove_node
- Arguments: node GOBO::Node, cascade Bool[OPT]
unlinks the node from this graph
If cascade is 0 or undef, any links to or from this node will remain as dangling links.
If cascade is set, then links to and from this node will also be deleted
=cut
sub remove_node {
my $self = shift;
my $n = shift;
my $cascade = shift;
#my $id = ref($n) ? $n->id : $n;
my $id = $n->id;
if ($self->term_h->{$id}) {
delete $self->term_h->{$id};
GOBO/Graph.pm view on Meta::CPAN
delete $self->instance_h->{$id};
}
if ($self->relation_h->{$id}) {
delete $self->relation_h->{$id};
}
if ($cascade) {
$self->remove_link($_) foreach @{$self->get_outgoing_links($n)};
$self->remove_link($_) foreach @{$self->get_incoming_links($n)};
}
return $self->node_index->remove_node($n);
GUIDeFATE
view release on metacpan or search on metacpan
lib/GFtk.pm view on Meta::CPAN
else {$lastMenuLabel=$label}; # in menu generator
if ($type eq "menuhead"){
$currentMenu="menu".$id;
$self ->{$currentMenu} = $self ->{"menubar"}->cascade(-label => "~$label")
}
elsif ($type eq "radio"){
$self ->{$currentMenu}->radiobutton(-label => $label);
}
elsif ($type eq "check"){
Galileo
view release on metacpan or search on metacpan
lib/Galileo/files/sql/_source/deploy/1/001-auto-__VERSION.yml view on Meta::CPAN
- user_id
_relationships:
pages:
attrs:
accessor: multi
cascade_copy: 1
cascade_delete: 1
join_type: LEFT
class: Galileo::DB::Schema::Result::Page
cond:
foreign.author_id: self.user_id
source: Galileo::DB::Schema::Result::Page
Game-WordBrain
view release on metacpan or search on metacpan
lib/Game/WordBrain/WordList.pm view on Meta::CPAN
cascabel
cascabels
cascable
cascables
cascadable
cascade
cascaded
cascades
cascading
cascadite
cascado
cascalho
cascalote
lib/Game/WordBrain/WordList.pm view on Meta::CPAN
uncarried
uncart
uncarted
uncartooned
uncarved
uncascaded
uncascading
uncase
uncased
uncasemated
uncases
Games-Axmud
view release on metacpan or search on metacpan
lib/Games/Axmud/Cmd.pm view on Meta::CPAN
$inferiorObj = $session->ivShow('inferiorCageHash', $cage);
if ($inferiorObj) {
$level++;
$string = '';
# Display strings in a cascade, depending on the number of inferiors they have
for (my $count = 0; $count < $level; $count++) {
$string .= ' ';
}
Games-Cryptoquote
view release on metacpan or search on metacpan
t/patterns.txt view on Meta::CPAN
1|2|3|1|2|6|4|8|9|10|11:regrettably|
1|2|3|1|2|6|4|8|9|10|2:regrettable|
1|2|3|1|2|6|4|8|9|10|4:regressions|repressions|
1|2|3|1|2|6|4|8|9|2:regressive|repressive|
1|2|3|1|2|6|4|8|9|3:regressing|regretting|
1|2|3|1|2|6|7:alkalis|cascade|concord|fanfare|inkings|kicking|pompous|refresh|regrets|sausage|subsume|tilting|wayward|
1|2|3|1|2|6|7|1:sausages|subsumes|
1|2|3|1|2|6|7|2:eclectic|recreate|
1|2|3|1|2|6|7|2|1:refresher|
1|2|3|1|2|6|7|2|1|4:refreshers|
1|2|3|1|2|6|7|2|4:refreshes|
1|2|3|1|2|6|7|2|9:recreated|recreates|refreshed|
1|2|3|1|2|6|7|2|9|10|7|3|13:preprogrammed|
1|2|3|1|2|6|7|3:cascades|
1|2|3|1|2|6|7|3|9|6|11|12|13:preprocessing|
1|2|3|1|2|6|7|3|9|6|3|12:preprocessed|
1|2|3|1|2|6|7|3|9|6|4|2:preprocessor|
1|2|3|1|2|6|7|3|9|6|4|2|6:preprocessors|
1|2|3|1|2|6|7|4:cascaded|
1|2|3|1|2|6|7|5|9:potpourri|
1|2|3|1|2|6|7|8:MacMahon|alkaline|alkaloid|porpoise|subsumed|tortoise|
1|2|3|1|2|6|7|8|1|10|11:insincerity|
1|2|3|1|2|6|7|8|1|10|2:insinuation|
1|2|3|1|2|6|7|8|1|10|2|3:insinuations|
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
( run in 1.099 second using v1.01-cache-2.11-cpan-39bf76dae61 )