view release on metacpan or search on metacpan
lib/DBIx/ObjectMapper/Mapper/Instance.pm view on Meta::CPAN
elsif( $status_name eq 'detached' ) {
my $class_mapper = $self->instance->__class_mapper__;
for my $prop_name ( $class_mapper->attributes->property_names ) {
my $prop = $class_mapper->attributes->property_info($prop_name);
next unless $prop->type eq 'relation';
if( $prop->{isa}->is_cascade_detach() ) {
if( my $instance = $self->get_val($prop_name) ) {
my @instance
= ref $instance eq 'ARRAY'
? @$instance
: ($instance);
lib/DBIx/ObjectMapper/Mapper/Instance.pm view on Meta::CPAN
elsif( $status_name eq 'expired' ) {
my $class_mapper = $self->instance->__class_mapper__;
for my $prop_name ( $class_mapper->attributes->property_names ) {
my $prop = $class_mapper->attributes->property_info($prop_name);
next unless $prop->type eq 'relation';
if( $prop->{isa}->is_cascade_reflesh_expire() ) {
if( my $instance = $self->get_val($prop_name) ) {
my @instance
= ref $instance eq 'ARRAY'
? @$instance
: ($instance);
lib/DBIx/ObjectMapper/Mapper/Instance.pm view on Meta::CPAN
$self->initialize;
for my $prop_name ( $class_mapper->attributes->property_names ) {
my $prop = $class_mapper->attributes->property_info($prop_name);
next unless $prop->type eq 'relation';
if( $prop->{isa}->is_cascade_reflesh_expire() ) {
if( my $instance = $self->get_val($prop_name) ) {
my @instance
= ref $instance eq 'ARRAY'
? @$instance
: ($instance);
lib/DBIx/ObjectMapper/Mapper/Instance.pm view on Meta::CPAN
my $uniq_cond = $self->identity_condition;
my $class_mapper = $self->instance->__class_mapper__;
my $result;
try {
my @after_cascade;
for my $prop_name ( $class_mapper->attributes->property_names ) {
my $prop = $class_mapper->attributes->property_info($prop_name);
next unless $prop->type eq 'relation';
if (ref( $prop->{isa} ) eq
'DBIx::ObjectMapper::Relation::BelongsTo' )
{
if ( $prop->{isa}->is_cascade_save_update() ) {
$prop->{isa}->cascade_update($self);
}
if( $modified_data->{$prop_name} ) {
$prop->{isa}->set_val_from_object(
$self,
$self->get_val($prop_name),
);
}
}
elsif ( $prop->{isa}->is_cascade_save_update() ) {
push @after_cascade, $prop;
}
}
my $new_val;
if( keys %$modified_data ) {
lib/DBIx/ObjectMapper/Mapper/Instance.pm view on Meta::CPAN
$reduce_data,
$modified_data
);
}
for my $c ( @after_cascade ) {
$c->{isa}->cascade_update( $self );
}
$self->_release_many_to_many_event;
$self->_modify($new_val) if $new_val;
} catch {
lib/DBIx/ObjectMapper/Mapper/Instance.pm view on Meta::CPAN
};
$self->{is_modified} = 0;
$self->{modified_data} = +{};
$self->change_status('expired'); # cascade expire if cascade_reflesh_expire
return !$result || $self->instance;
}
sub save {
my ( $self ) = @_;
confess 'it need to be "pending" status.' unless $self->is_pending;
my $class_mapper = $self->instance->__class_mapper__;
try {
my @after_cascade;
for my $prop_name ( $class_mapper->attributes->property_names ) {
my $prop = $class_mapper->attributes->property_info($prop_name);
if ( $prop->type eq 'relation' ) {
if (ref( $prop->{isa} ) eq
'DBIx::ObjectMapper::Relation::BelongsTo' )
lib/DBIx/ObjectMapper/Mapper/Instance.pm view on Meta::CPAN
my @instances
= ref $instance eq 'ARRAY'
? @$instance
: ($instance);
for my $i (@instances) {
if( $prop->{isa}->is_cascade_save_update() ) {
$prop->{isa}->cascade_save( $self, $i );
}
else {
$prop->{isa}->set_val_from_object( $self, $i );
}
}
}
}
elsif( $prop->{isa}->is_cascade_save_update() ) {
push @after_cascade, $prop;
}
}
}
my $reduce_data = $self->reducing;
my $data = { %$reduce_data, %{$class_mapper->default_value} };
my $comp_result = $class_mapper->insert(%$data);
$self->_modify($comp_result);
$self->initialize;
for my $c ( @after_cascade ) {
if ( my $instance = $self->get_val($c->name) ) {
my @instances
= ref $instance eq 'ARRAY'
? @$instance
: ($instance);
for my $i (@instances) {
$c->{isa}->cascade_save( $self, $i );
}
}
}
} catch {
lib/DBIx/ObjectMapper/Mapper/Instance.pm view on Meta::CPAN
my $uniq_cond = $self->identity_condition;
my $class_mapper = $self->instance->__class_mapper__;
my $result;
try {
my @after_cascade;
$deleted_key->{$self->primary_cache_key} = 1;
for my $prop_name ( $class_mapper->attributes->property_names ) {
my $prop = $class_mapper->attributes->property_info($prop_name);
if ( $prop->type eq 'relation'
and $prop->{isa}->is_cascade_delete() )
{
if (ref( $prop->{isa} ) eq
'DBIx::ObjectMapper::Relation::BelongsTo' )
{
push @after_cascade, $prop;
}
else {
$self->_cascade_delete($prop, $deleted_key);
}
}
elsif( $prop->is_multi ) {
$prop->{isa}->deleted_parent($self);
}
}
$result = $class_mapper->delete(@$uniq_cond);
for my $c ( @after_cascade ) {
$self->_cascade_delete($c, $deleted_key);
}
} catch {
$self->change_status('detached');
confess $_[0];
};
$self->change_status('detached');
return $result;
}
sub _cascade_delete {
my ( $self, $prop, $deleted_key ) = @_;
$prop->{isa}->cascade_delete($self, $deleted_key);
if ( my $instance = $self->get_val($prop->name) ) {
my @instance
= ref $instance eq 'ARRAY'
? @$instance
: ($instance);
lib/DBIx/ObjectMapper/Mapper/Instance.pm view on Meta::CPAN
{
my $mapper_addr = refaddr($obj);
$self->_regist_many_to_many_event($name, $mapper_addr, 'remove');
}
elsif( $self->is_persistent ) {
if( $prop->{isa}->is_cascade_delete_orphan ) {
$self->unit_of_work->delete($obj);
}
else {
my $rel_val = $prop->{isa}->relation_value($self);
for my $r ( keys %$rel_val ) {
view release on metacpan or search on metacpan
t/lib/CDTest/Schema/Result/Artist.pm view on Meta::CPAN
__PACKAGE__->has_many(
"artwork_to_artists",
"CDTest::Schema::Result::ArtworkToArtist",
{ "foreign.artist_id" => "self.artistid" },
{ cascade_copy => 0, cascade_delete => 0 },
);
=head2 cds
Type: has_many
t/lib/CDTest/Schema/Result/Artist.pm view on Meta::CPAN
__PACKAGE__->has_many(
"cds",
"CDTest::Schema::Result::CD",
{ "foreign.artist" => "self.artistid" },
{ cascade_copy => 0, cascade_delete => 0 },
);
=head2 artwork_cds
Type: many_to_many
view release on metacpan or search on metacpan
lib/DBIx/Patcher/Schema/Result/Patcher/Run.pm view on Meta::CPAN
__PACKAGE__->has_many(
"patches",
"DBIx::Patcher::Schema::Result::Patcher::Patch",
{ "foreign.run_id" => "self.id" },
{ cascade_copy => 0, cascade_delete => 0 },
);
# Created by DBIx::Class::Schema::Loader v0.07002 @ 2011-02-19 15:51:40
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Daqwau9crznJbGFbcJhF3Q
view release on metacpan or search on metacpan
lib/DBIx/PgLink/Accessor/BaseAccessor.pm view on Meta::CPAN
{isa=>'Int', required=>1},
) => sub {
my ($self, $object_id) = @_;
# delete base row by id
# foreign key cascade to child metadata (columns, queries, etc)
pg_dbh->do(<<'END_OF_SQL',
DELETE FROM dbix_pglink.objects
WHERE object_id = $1
END_OF_SQL
{types=>[qw/INT4/]},
view release on metacpan or search on metacpan
lib/DBIx/QuickORM.pm view on Meta::CPAN
my $pg_orm = orm('my_orm:pgsql');
my $mysql_orm = orm('my_orm:mysql');
This works in C<orm()>, C<db()>, C<schema()>, C<table()>, and C<row()> builders. It does
cascade, so if you ask for the C<mysql> variant of an ORM, it will also give you
the C<mysql> variants of the database, schema, tables and rows.
Can be nested under any builder. Can contain whatever the builder it is nested
under can contain.
view release on metacpan or search on metacpan
t/002_dsl.t view on Meta::CPAN
varchar 'name', null => 0;
integer 'author_id';
decimal 'price', size => [4,2];
enum 'classification', [qw/novel science/];
belongs_to 'author', on_delete => 'cascade';
};
create_table author => columns {
pk 'id';
varchar 'name';
t/002_dsl.t view on Meta::CPAN
ok $c->no_fk_translate;
ok my $ddl = $c->translate;
note $ddl;
like $ddl, qr/ON DELETE cascade/msi;
like $ddl, qr/on update CURRENT_TIMESTAMP NULL DEFAULT CURRENT_TIMESTAMP/msi;
like $ddl, qr/`classification` ENUM\('novel', 'science'\) NULL/msi;
ok $c->no_fk_translate ne $c->translate;
view release on metacpan or search on metacpan
- we use Encode module without perl version check for a long time, so we
can get rid of all checks for the version and load the module at compile
time everywhere we need it
- implement MayBeNull method in the handler that checks if applied
conditions allow NULLs in the result set
- implement cascaded LEFT JOINs optimization
- additional tests for CleanSlate and Clone methods, ENTRY_AGGREGATOR
argument, different types of joins and LEFT JOIN optimizer
1.45 2006-09-26
- Postgres: fix "$rec->Create();"
view release on metacpan or search on metacpan
],
undef,
$default_drop
);
test_drop(cascade =>
new_ok($mod, [{%def_args, drop_suffix => 'CASCADE'}]),
qr/DROP\s+TABLE/,
qr/"data"/,
qr/CASCADE/,
);
view release on metacpan or search on metacpan
vendor/dms-c/dms.c view on Meta::CPAN
/* Build + sort index arrays. In lite mode, both lookup arrays are
left NULL so every `find_first_match` short-circuits — comments are
dropped, integer base / string flavor fall back to canonical form. */
static void emitter_init(emitter *e, const dms_document *doc, bool lite) {
buf_init(&e->out);
buf_ensure(&e->out, 64 * 1024); /* pre-size: skip realloc cascade on typical-sized configs */
e->doc = doc;
e->comments_sorted = NULL;
e->forms_sorted = NULL;
e->path_buf = NULL;
e->path_buf_cap = 0;
view release on metacpan or search on metacpan
vendor/dms-c/dms.c view on Meta::CPAN
/* Build + sort index arrays. In lite mode, both lookup arrays are
left NULL so every `find_first_match` short-circuits — comments are
dropped, integer base / string flavor fall back to canonical form. */
static void emitter_init(emitter *e, const dms_document *doc, bool lite) {
buf_init(&e->out);
buf_ensure(&e->out, 64 * 1024); /* pre-size: skip realloc cascade on typical-sized configs */
e->doc = doc;
e->comments_sorted = NULL;
e->forms_sorted = NULL;
e->path_buf = NULL;
e->path_buf_cap = 0;
view release on metacpan or search on metacpan
lib/DOCSIS/ConfigFile/mibs/DIFFSERV-MIB view on Meta::CPAN
-- This MIB supports a variety of Meters. It includes a specific
-- definition for Token Bucket Meter, which are but one type of
-- specification. Other metering parameter sets can be defined in other
-- MIBs.
-- Multiple meter elements may be logically cascaded using their
-- diffServMeterSucceedNext and diffServMeterFailNext pointers if
-- required. One example of this might be for an AF PHB implementation
-- that uses multiple level conformance meters.
-- Cascading of individual meter elements in the MIB is intended to be
view release on metacpan or search on metacpan
CAB/Analyzer/Automaton/Gfsm/XL.pm view on Meta::CPAN
## $aut = $aut->clear()
sub clear {
my $aut = shift;
$aut->{fst}->_cascade_set(undef) if ($aut->{fst});
##-- inherited
$aut->SUPER::clear();
}
CAB/Analyzer/Automaton/Gfsm/XL.pm view on Meta::CPAN
## + default labels class for loadLabels() method
sub labClass { return 'Gfsm::Alphabet'; }
## $bool = $aut->fstOk()
## + should return false iff fst is undefined or "empty"
sub fstOk { return defined($_[0]{fst}) && defined($_[0]{fst}->cascade) && $_[0]{fst}->cascade->depth>0; }
## $bool = $aut->labOk()
## + should return false iff label-set is undefined or "empty"
#(inherited)
CAB/Analyzer/Automaton/Gfsm/XL.pm view on Meta::CPAN
## $aut = $aut->loadCascade($cscfile)
## $aut = $aut->loadFst ($cscfile)
*loadFst = \&loadCascade;
sub loadCascade {
my ($aut,$cscfile) = @_;
$aut->info("loading cascade file '$cscfile'");
my $csc = Gfsm::XL::Cascade->new();
if (!$csc->load($cscfile)) {
$aut->logconfess("loadCascade(): load failed for '$cscfile': $!");
return undef;
}
CAB/Analyzer/Automaton/Gfsm/XL.pm view on Meta::CPAN
}
## $result = $aut->resultFst()
## + returns empty result FST
sub resultFst {
return Gfsm::Automaton->new($_[0]{fst}->cascade->semiring_type);
}
##--------------------------------------------------------------
## Methods: I/O: Input: Labels
view release on metacpan or search on metacpan
upgrade/0.2/upgrade.pl view on Meta::CPAN
add column short_title text
});
print STDERR " * wc_file.root_file_id\n";
$db->do(q{
alter table wc_file
add column root_file_id int references wc_file on delete cascade
});
print STDERR " * wc_file.article_pages_url\n";
$db->do(q{
alter table wc_file
add column article_pages_url text
upgrade/0.2/upgrade.pl view on Meta::CPAN
add column article_content text
});
print STDERR " * wc_article_extra_url\n";
$db->do(q<
create table wc_article_extra_url (
file_id int not null references wc_file on delete cascade,
url text not null,
content_type text not null
-- All ASCII characters allowed except 'tspecials' defined in RFC 2045.
check (content_type similar to '[-!#$\\\\%&''*+.0-9A-Z^\\\\_`a-z{|}~]+/[-!#$\\\\%&''*+.0-9A-Z^\\\\_`a-z{|}~]+'),
generator text not null
upgrade/0.2/upgrade.pl view on Meta::CPAN
);
>);
print STDERR " * wc_article_extra_template\n";
$db->do(q{
create table wc_article_extra_template (
file_id int not null references wc_file on delete cascade,
filename text not null
);
});
print STDERR " * wc_article_included_files\n";
$db->do(q{
create table wc_article_included_files (
file_id int not null references wc_file on delete cascade,
included_file_id int not null
references wc_file deferrable initially deferred
);
});
view release on metacpan or search on metacpan
share/debugtoolbar/js/prettify/lang-sql.js view on Meta::CPAN
PR.registerLangHandler(PR.createSimpleLexer([["pln",/^[\t\n\r \xa0]+/,null,"\t\n\r Â\xa0"],["str",/^(?:"(?:[^"\\]|\\.)*"|'(?:[^'\\]|\\.)*')/,null,"\"'"]],[["com",/^(?:--[^\n\r]*|\/\*[\S\s]*?(?:\*\/|$))/],["kwd",/^(?:add|all|alter|and|any|as|asc|autho...
null],["lit",/^[+-]?(?:0x[\da-f]+|(?:\.\d+|\d+(?:\.\d*)?)(?:e[+-]?\d+)?)/i],["pln",/^[_a-z][\w-]*/i],["pun",/^[^\w\t\n\r "'\xa0][^\w\t\n\r "'+\xa0-]*/]]),["sql"]);
view release on metacpan or search on metacpan
lib/Dancer/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
bin/index-url.pl view on Meta::CPAN
warn "Index: $_\n" for grep { /^\Q$index_name/ } keys %indices;
# Connect to cluster at search1:9200, sniff all nodes and round-robin between them:
# Lame-ass config cascade
# Read from %ENV, $config, hard defaults, with different names,
# write to yet more different names
# Should merge with other config cascade
sub get_defaults {
my( %options ) = @_;
$options{ defaults } ||= {}; # premade defaults
my @names = @{ $options{ names } };
view release on metacpan or search on metacpan
lib/Dancer/Template/Xslate.pm view on Meta::CPAN
=over
=item Cascading
Dancer already provides a <cascade>-like feature, called a "layout", in order
to augment other template engines lacking such a feature. In order to use
Xslate's C<cascade>, turn off C<layout> by commenting out or removing the
appropriate line in your Dancer application config.
=item Smart HTML Escaping
Use of Dancer's C<layout> feature will cause HTML templates to be HTML-entity
encoded twice if Xslate's "smart HTML escaping" feature is enabled. Xslate's
C<type> option can be set to "text" to disable smart-escaping, or, once again,
C<layout> can be disabled in favor of C<cascade>.
=back
=head1 SEE ALSO
view release on metacpan or search on metacpan
lib/Dancer2/Logger/Fluent.pm view on Meta::CPAN
Socket file location, defaults to undef as implemented in
L<Fluent::Logger>.
=item prefer_integer
Whether integer is preferred as cascaded to
Data::MessagePack->prefer_integer. Defaults to 1.
=item event_time
Whether event timestamps (includes nanoseconds as supported by
view release on metacpan or search on metacpan
t/lib/Schema1/Result/Group.pm view on Meta::CPAN
__PACKAGE__->has_many(
"memberships",
"t::lib::Schema1::Result::Membership",
{ "foreign.group_id" => "self.id" },
{ cascade_copy => 0, cascade_delete => 0 },
);
# Created by DBIx::Class::Schema::Loader v0.07043 @ 2016-04-01 11:38:38
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:cbfROCT5/5jkcwNTB7H4ng
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
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