view release on metacpan or search on metacpan
lib/Dancer2/Plugin/Interchange6/Cart.pm view on Meta::CPAN
);
}
}
# delete the old carts (cascade deletes related cart products)
$old_carts->delete;
}
=head2 remove
view release on metacpan or search on metacpan
share/assets/dash_core_components/async~highlight.js view on Meta::CPAN
(window.webpackJsonpdash_core_components=window.webpackJsonpdash_core_components||[]).push([[3],{669:function(e,n,a){var t,s,r;s=function(e){var n,a=[],t=Object.keys,s={},r={},i=!0,l=/^(no-?highlight|plain|text)$/i,o=/\blang(?:uage)?-([\w-]+)\b/i,c=/...
//# sourceMappingURL=async~highlight.js.map
view release on metacpan or search on metacpan
lib/Data/DFA.pm view on Meta::CPAN
5 e 0 1
END
}
if (0) {
my $d = parseDtdElement('(#PCDATA | dl | parml | div | equation-block | fig | imagemap | syntaxdiagram | equation-figure | image | lines | lq | note | hazardstatement | object | ol | pre | codeblock | msgblock | screen | simpletable | sl | table | ...
is_deeply $d->print("p"), <<END;
p
State Final Symbol Target Final
1 0 1 PCDATA 0 1
2 abbreviated-form 0 1
lib/Data/DFA.pm view on Meta::CPAN
29 line-through 0 1
30 lines 0 1
31 lq 0 1
32 markupname 0 1
33 mathml-d-foreign 0 1
34 menucascade 0 1
35 msgblock 0 1
36 msgnum 0 1
37 msgph 0 1
38 note 0 1
39 numcharref 0 1
view release on metacpan or search on metacpan
lib/Data/Downloader/File.pm view on Meta::CPAN
or WARNDIE "failed to unlink ".$self->storage_path." : $!";
};
}
if ($args->{purge}) {
DEBUG "purging file ".$self->id;
$self->delete(cascade => 1)
or WARNDIE "failed to purge file: ".$self->error;
} else {
DEBUG "removing file ".$self->id;
$self->on_disk(0);
$self->disk(undef);
view release on metacpan or search on metacpan
lib/Data/Edit/Xml.pm view on Meta::CPAN
"indexterm" => 1,
"indextermref" => 1,
"keyword" => 1,
"line-through" => 1,
"markupname" => 1,
"menucascade" => 1,
"msgnum" => 1,
"msgph" => 1,
"numcharref" => 1,
"option" => 1,
"overline" => 1,
view release on metacpan or search on metacpan
lib/Data/FormValidator/ErrMsgs/JavaScript.pm view on Meta::CPAN
=head1 FUTURE
If you like this extension to Data::FormValidator, give me some feedback
on the Data::FormValidator list and we'll work out a stable interface.
L<http://lists.sourceforge.net/lists/listinfo/cascade-dataform>
=head1 AUTHOR
Mark Stosberg, C<< <mark at summersault.com> >>
view release on metacpan or search on metacpan
lib/Data/FormValidator/Tutorial.pm view on Meta::CPAN
This is just an early release of this tutorial - we're using the release early & often mentality, so there's still a few things left to do. We want to address of of the more complicated aspects of dfv, like Filters, etc.
=head1 SEE ALSO
L<Data::FormValidator> and the dfv mailing list: L<http://lists.sourceforge.net/lists/listinfo/cascade-dataform>
Also, Jason Purdy presented dfv at ApacheCon 2005 (L<http://www.apachecon.com>). You can download the slides here:
L<http://www.purdy.info/useperl/th06_slides.pdf>
view release on metacpan or search on metacpan
eg/cross_process.pl view on Meta::CPAN
# advance the clock past every delay and count how many fire
my $total_fired = 0;
$total_fired += scalar $tw->advance(1) for 1 .. 5000;
printf "after 5000 ticks: %d timers fired, %d still pending\n", $total_fired, $tw->count;
printf "(every delay was in 1..5000, so all should have fired -- through 2 levels of cascades)\n";
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;
view release on metacpan or search on metacpan
lib/Data/OFAC/SDN/Schema/Result/Sdn.pm view on Meta::CPAN
__PACKAGE__->has_many(
"addresses",
"Data::OFAC::SDN::Schema::Result::Address",
{ "foreign.ent_num" => "self.ent_num" },
{ cascade_copy => 0, cascade_delete => 0 },
);
=head2 alts
Type: has_many
lib/Data/OFAC/SDN/Schema/Result/Sdn.pm view on Meta::CPAN
__PACKAGE__->has_many(
"alts",
"Data::OFAC::SDN::Schema::Result::Alt",
{ "foreign.ent_num" => "self.ent_num" },
{ cascade_copy => 0, cascade_delete => 0 },
);
# Created by DBIx::Class::Schema::Loader v0.07037 @ 2013-11-11 16:58:48
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:xYy/SCgpuUw4u4r/QkpzUw
view release on metacpan or search on metacpan
share/dictionary.txt view on Meta::CPAN
carvings
caryatid
caryatid's
caryatides
caryatids
cascade
cascade's
cascaded
cascades
cascading
case
case's
cased
casein
view release on metacpan or search on metacpan
lib/Data/Password/Top10000.pm view on Meta::CPAN
chilly
charter
celeb
cccccccc
caught
cascade
carnage
bunker
boxers
boxer
bombay
view release on metacpan or search on metacpan
lib/Data/Password/zxcvbn/RankedDictionaries/French.pm view on Meta::CPAN
'cartulaire' => 12943,
'carver' => 29768,
'cas' => 143,
'casablanca' => 12181,
'casbah' => 29769,
'cascade' => 7596,
'cascades' => 9442,
'cascadeur' => 28740,
'case' => 6548,
'casemate' => 17724,
'casemates' => 17480,
'caserne' => 5453,
'casernement' => 24130,
view release on metacpan or search on metacpan
lib/Data/Password/zxcvbn/RankedDictionaries/Common.pm view on Meta::CPAN
'casa123' => 22557,
'casablanca' => 3198,
'casandra' => 14365,
'casanova' => 3227,
'cascada' => 20806,
'cascade' => 12610,
'cascades' => 15120,
'casey' => 3383,
'casey1' => 4904,
'casey123' => 9738,
'caseydog' => 29973,
'cashflow' => 14600,
view release on metacpan or search on metacpan
use Data::Path::XS qw(path_get path_set patha_get pathc_get path_compile);
use Data::Path::XS ':keywords';
# path_get / patha_get / pathc_get / pathget all return rvalues.
# Trying to use them as lvalues must fail at compile time, and assigning
# to a returned ref must NOT silently cascade into the original structure.
subtest 'path_get is not lvalue' => sub {
eval q{ my $d = { x => 1 }; path_get($d, '/x') = 99 };
ok($@, 'path_get(...) = ... is rejected') or diag "no error";
like($@, qr/lvalue|modify|read.?only|left side/i,
view release on metacpan or search on metacpan
lib/Data/Pipeline/Aggregator/Pipeline.pm view on Meta::CPAN
$source = to_Iterator( $source );
if( !is_Iterator( $source ) ) {
Carp::croak "Pipeline doesn't have a source from which to get data";
}
my $cascade = $source;
for my $action ( @rest ) {
$cascade = $action -> transform( $cascade );
}
return $cascade;
}
sub transform {
my($self, $iterator) = @_;
lib/Data/Pipeline/Aggregator/Pipeline.pm view on Meta::CPAN
$iterator = to_Iterator( $iterator );
#$iterator -> options( $options );
return $iterator unless $self -> has_actions;
my $cascade = $iterator;
#my $first = 1;
for my $action (@{$self -> actions}) {
#next if $first && $action -> isa('Data::Pipeline::Adapter');
#$first = 0;
#$action -> options( $options );
$cascade = $action -> transform( $cascade );
# $cascade -> options( $options );
}
return $cascade;
#});
}
1;
view release on metacpan or search on metacpan
lib/Data/Random/Contact/Language/EN.pm view on Meta::CPAN
carvings
caryatid
caryatid's
caryatides
caryatids
cascade
cascade's
cascaded
cascades
cascading
case
case's
cased
casein
view release on metacpan or search on metacpan
lib/Data/Random/dict view on Meta::CPAN
carves
carving
carvings
Casanova
cascadable
cascade
cascaded
cascades
cascading
case
cased
casement
casements
view release on metacpan or search on metacpan
Reporter.pm view on Meta::CPAN
$report->height() Report's height
=item
$report->islastbreak() Returns true if it's the last processing break (using the cascade breaks approach)
=item
$report->iPB() Returns true if the reporter is processing breaks (useful when you want or not to do something while processing breaks)
Reporter.pm view on Meta::CPAN
As many breaks as necessary can be defined, but only one break per field is allowed.
=item CASCADE BREAKS
When defining more that one Break, they are handled in cascade. A change in a break field will cause all the break functions defined for fields with a lower value to be called. For example
assume the following data
1 2 3 1 1
1 2 3 1 2
view release on metacpan or search on metacpan
t/lib/MyApp/Schema/Result/Person.pm view on Meta::CPAN
__PACKAGE__->set_primary_key("id");
__PACKAGE__->has_many(
"books", "MyApp::Schema::Result::Book",
{"foreign.author_id" => "self.id"},
{cascade_copy => 0, cascade_delete => 0},
);
1;
view release on metacpan or search on metacpan
lib/Data/Transformator.pm view on Meta::CPAN
=item
Or the data source is an object that implements a '->generate()'
method (option name 'source'). Transformations implement themselves a
'->generate()' method such that transformations can be cascaded
easily.
=back
=item
lib/Data/Transformator.pm view on Meta::CPAN
=item 4
Combining the above: a query can be defined as applying (1) a
selective transformation and (2) a constructive transformation in
sequence to a preexisting data source. This is called cascaded
transformations.
=back
=head1 BUGS
lib/Data/Transformator.pm view on Meta::CPAN
sub generate
{
my $self = shift;
# we are being used in a transformation cascade of some sort
return $self->transform();
}
lib/Data/Transformator.pm view on Meta::CPAN
# construct data to be transformed
my $data = $contents || $self->{contents};
# if there is a cascade from a related object
if (!$data
&& $self->{source})
{
# construct the data from the source
view release on metacpan or search on metacpan
lib/Database/Async/ORM.pm view on Meta::CPAN
# Optional extensions first, and we don't care if any fail
for my $ext ($self->extension_list) {
my ($name) = $ext->name;
try {
die 'invalid name for extension: ' . $name unless $name =~ /^[a-zA-Z0-9_-]+$/;
await $db->query(qq{create extension if not exists "$name" cascade})->void if $ext->is_optional;
} catch {
$log->warnf('Failed to install optional extension %s, ignoring: %s', $name, $@);
}
}
# All remaining steps are in a single transaction
await $db->query(q{begin})->void;
for my $ext (grep { not $_->is_optional } $self->extension_list) {
my ($name) = $ext->name;
await $db->query(qq{create extension if not exists "$name" cascade})->void;
}
my @out;
for my $action (@actions) {
if($action->isa('Database::Async::ORM::Table')) {
lib/Database/Async/ORM.pm view on Meta::CPAN
# Optional extensions first, and we don't care if any fail
for my $ext ($self->extension_list) {
my ($name) = $ext->name;
try {
die 'invalid name for extension: ' . $name unless $name =~ /^[a-zA-Z0-9_-]+$/;
push @out, qq{create extension if not exists "$name" cascade} if $ext->is_optional;
} catch {
$log->warnf('Failed to install optional extension %s, ignoring: %s', $name, $@);
}
}
lib/Database/Async/ORM.pm view on Meta::CPAN
push @out, q{begin};
for my $ext (grep { not $_->is_optional } $self->extension_list) {
my ($name) = $ext->name;
die 'invalid name for extension: ' . $name unless $name =~ /^[a-zA-Z0-9_-]+$/;
push @out, qq{create extension if not exists "$name" cascade};
}
for my $action (@actions) {
if($action->isa('Database::Async::ORM::Table')) {
$log->tracef('Create table %s', $action->name);
view release on metacpan or search on metacpan
t/integration.t view on Meta::CPAN
};
diag('section 5 done') if $ENV{TEST_VERBOSE};
# ===========================================================================
# SECTION 6 -- Column removal cascade (5 subtests)
#
# remove_column must propagate to columns(), schema(), result rows, and the
# routing table. Criteria targeting a removed column are silently carp()ed
# and dropped. The join_column itself cannot be removed.
# ===========================================================================
view release on metacpan or search on metacpan
lib/Date/Cmp.pm view on Meta::CPAN
C<< <=> >> operator.
The comparison handles approximate dates (C<Abt. 1902>, C<BET 1830 AND 1832>,
C<Oct/Nov/Dec 1950>), partial dates (year-only), and the common genealogy
qualifiers C<BEF> and C<AFT>. Exact parsing delegates to
L<DateTime::Format::Genealogy>; a cascade of fast-path heuristics handles
the most common year-only comparisons without invoking the heavier parser.
=head1 FUNCTIONS
=head2 datecmp
view release on metacpan or search on metacpan
t/01_basic.t view on Meta::CPAN
],
'Fire every 5 minutes starting at 2pm and ending at 2:55pm, '
. 'AND fire every 5 minutes starting at 6pm and ending at 6:55pm, every day'
],
# from DateTime::Event::Cron : cascade.t
[
'0 30 10,14,18 * * ?',
[ 2003, 1, 1, 14, 40, 0 ],
[
view release on metacpan or search on metacpan
lib/DateTime/Event/Cron.pm view on Meta::CPAN
$dt->subtract_duration($dur);
}
$dt->day;
}
### Unit cascades
sub _incr {
my($self, $date) = @_;
my $last_min = $date->minute;
my $last_hour = $date->hour;
view release on metacpan or search on metacpan
lib/DateTime/Lite.pm view on Meta::CPAN
The heavy L<Specio>, L<Params::ValidationCompiler>, L<Try::Tiny>, and C<namespace::autoclean> are eliminated entirely.
=item Low memory footprint
C<DateTime> loads a cascade of modules which inflates C<%INC> significantly. C<DateTime::Lite> avoids this via selective lazy loading.
=item Accurate timezone data from TZif binaries
C<DateTime::TimeZone> derives its zone data from the IANA Olson I<source> files (C<africa>, C<northamerica>, etc.) via a custom text parser (C<DateTime::TimeZone::OlsonDB>), then pre-generates one C<.pm> file per zone at distribution build time. This...
view release on metacpan or search on metacpan
examples/web/jquery-1.5.2.js view on Meta::CPAN
for ( var i = 0, j = this.length; i < j; i++ ) {
elem = this[i];
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
t/04-options.t view on Meta::CPAN
($in = bug('c') = 42);
like $buf, qr/\e\[/, 'noterm=1 does not suppress color=ON';
}
# ---------------------------------------------------------------------------
# terminal width detection cascade: stty → Term::Size::Perl
# Simulate unavailability via an @INC hook that blocks Term/Size/Perl.pm.
# ---------------------------------------------------------------------------
{
my $attempts = 0;
view release on metacpan or search on metacpan
RelaisControl.pm view on Meta::CPAN
=head1 DESCRIPTION
This module provides an abstraction layer for accessing a Conrad Electronic
Relaiscard. It acts as a container for several cards (the cards are
cascadeable) and controls the communication over the serial port.
=head2 Creation
At time of creation of the RelaisControl Object the serial port is
initialized. It is the only operation which works without having