view release on metacpan or search on metacpan
t/lib/Sample/Context/Singleton/Frame.pm view on Meta::CPAN
$self->db->contrive (with_deps => (
as => sub { join '-', @_ },
dep => [ 'foo', 'bar' ],
));
$self->db->contrive (cascaded => (
as => sub { join ':', 'cascaded', @_ },
default => { param => 'param' },
dep => [ 'param', 'with_deps' ],
));
$self->db->trigger (with_trigger => sub {
t/lib/Sample/Context/Singleton/Frame.pm view on Meta::CPAN
$self->contrive (constant => (
value => 'value-42',
));
$self->contrive (cascaded => (
dep => [ 'constant' ],
as => sub { "cascaded:$_[0]" },
));
$self->contrive (with_deps => (
dep => [ 'unknown' ],
as => sub { "with_deps:$_[0]" },
view release on metacpan or search on metacpan
lib/Contextual/Return.pm view on Meta::CPAN
C<LVALUE>, C<RVALUE>, and C<NVALUE> do not work correctly under the Perl
debugger. This seems to be because the debugger injects code to capture
the return values from subroutines, which interferes destructively with
the optional final arguments that allow C<LVALUE>, C<RVALUE>, and C<NVALUE>
to cascade within a single return.
=head1 BUGS AND LIMITATIONS
No bugs have been reported.
view release on metacpan or search on metacpan
lib/ControlBreak.pm view on Meta::CPAN
Because level numbers correspond to the hierarchical data order, they
can be use to trigger multiple actions; e.g. B<levelnum()> >= 1 could
be used to print subtotals for levels 1 whenever a control break
occurred for level 1, 2 or 3. It is usually the case that higher
control breaks are meant to cascade to lower control levels and this
can be achieved in this fashion. The B<break()> method simplifies
this.
Note that method B<continue()> must be called at the end of each
iteration in order to save the values of the iteration for the next
view release on metacpan or search on metacpan
tests/include/pdclib/functions/_dlmalloc/malloc.c view on Meta::CPAN
in the course of computing the summaries.
ABORT_ON_ASSERT_FAILURE default: defined as 1 (true)
Debugging assertion failures can be nearly impossible if your
version of the assert macro causes malloc to be called, which will
lead to a cascade of further failures, blowing the runtime stack.
ABORT_ON_ASSERT_FAILURE cause assertions failures to call abort(),
which will usually make debugging easier.
MALLOC_FAILURE_ACTION default: sets errno to ENOMEM, or no-op on win32
The action to take before "return 0" when malloc fails to be able to
view release on metacpan or search on metacpan
lib/Convos/public/js/jquery.js view on Meta::CPAN
values[ index ] = jQuery._data( elem, "olddisplay" );
display = elem.style.display;
if ( show ) {
// Reset the inline display of this element to learn if it is
// being hidden by cascaded rules or not
if ( !values[ index ] && display === "none" ) {
elem.style.display = "";
}
// Set elements which have been overridden with display: none
view release on metacpan or search on metacpan
lib/Crypt/HSXKPasswd/Dictionary/FR.pm view on Meta::CPAN
'cascadas',
'cascadasse',
'cascadassent',
'cascadasses',
'cascadassiez',
'cascade',
'cascadent',
'cascader',
'cascadera',
'cascaderai',
'cascaderais',
'cascaderait',
'cascaderas',
'cascaderez',
'cascaderiez',
'cascaderions',
'cascaderons',
'cascaderont',
'cascades',
'cascadeur',
'cascadeurs',
'cascadeuse',
'cascadeuses',
'cascadez',
'cascadiez',
'cascadions',
'cascadons',
'cascadâmes',
'cascadât',
view release on metacpan or search on metacpan
lib/Crypt/Util.pm view on Meta::CPAN
=head1 DESCRIPTION
This module provides an easy, intuitive and forgiving API for wielding
crypto-fu.
The API is designed as a cascade, with rich features built using simpler ones.
this means that the option processing is uniform throughout, and the behaviors
are generally predictable.
Note that L<Crypt::Util> doesn't do any crypto on its own, but delegates the
actual work to the various other crypto modules on the CPAN. L<Crypt::Util>
view release on metacpan or search on metacpan
lib/Crypt/XkcdPassword/Words/EN.pm view on Meta::CPAN
kiddo
healing
franklin
fiancee
derek
cascade
capeside
buster
application
stabbed
remarkable
view release on metacpan or search on metacpan
lib/CtrlO/Crypt/XkcdPassword/Wordlist/eff_large.pm view on Meta::CPAN
cartridge
cartwheel
carve
carving
carwash
cascade
case
cash
casing
casino
casket
view release on metacpan or search on metacpan
sample/facedetect.pl view on Meta::CPAN
use lib qw(blib/lib blib/arch);
use Cv;
use File::Basename;
my $haarDir = "/usr/local/share/OpenCV/haarcascades";
sub help {
die << "----";
This program demonstrates the haar cascade recognizer this classifier
can recognize many ~rigid objects, it\'s most known use is for faces.
Usage:
\$ .\/facedetect
[--cascade=<cascade_path>]
this is the primary trained classifier such as frontal face
[--nested-cascade[=<nested_cascade_path>]]
this an optional secondary classifier such as eyes
[--scale=<image scale greater or equal to 1, try 1.3 for example>]
[filename|camera_index]
see facedetect.cmd for one call:
\$ .\/facedetect
--cascade=$haarDir/haarcascade_frontalface_alt.xml
--nested-cascade=$haarDir/haarcascade_eye.xml
--scale=1.3
Hit any key to quit.
----
;
}
my $cascadeName = "$haarDir/haarcascade_frontalface_alt.xml";
my $nestedCascadeName = "$haarDir/haarcascade_eye_tree_eyeglasses.xml";
my $scale = 1;
use Getopt::Long;
unless (GetOptions(
"--cascade=s" => \$cascadeName,
"--nested-cascade=s" => \$nestedCascadeName,
"--scale=s" => \$scale,
)) {
help();
}
my $inputName = shift(@ARGV);
my $cascade = Cv->Load($cascadeName);
unless ($cascade) {
die "ERROR: Could not load classifier cascade";
}
my $nestedCascade = Cv->Load($nestedCascadeName);
unless ($nestedCascade) {
warn "WARNING: Could not load classifier cascade for nested objects\n";
}
my $capture;
my $image;
if (defined $inputName && $inputName =~ /^\d$/) {
sample/facedetect.pl view on Meta::CPAN
Cv->NamedWindow("result", 0);
if ($capture) {
while (my $frame = $capture->queryFrame) {
my $frameCopy = $frame->flip(\0, 1)->clone;
$frameCopy->detectAndDraw($cascade, $nestedCascade, $scale);
last if Cv->waitKey(10) > 0;
}
} elsif ($image) {
$image->detectAndDraw($cascade, $nestedCascade, $scale);
Cv->waitKey;
}
sub Cv::Arr::detectAndDraw {
my ($img, $cascade, $nestedCascade, $scale) = @_;
my @colors = (
CV_RGB( 0, 0, 255),
CV_RGB( 0, 128, 255),
CV_RGB( 0, 255, 255),
CV_RGB( 0, 255, 0),
sample/facedetect.pl view on Meta::CPAN
my ($t, $c) = ("i5", 5);
wantarray? ($t, $c) : $t;
}
}
my $faces = bless $smallImg->HaarDetectObjects(
$cascade, $storage, 1.1, 2, 0
# |CV_HAAR_FIND_BIGGEST_OBJECT
# |CV_HAAR_DO_ROUGH_SEARCH
|CV_HAAR_SCALE_IMAGE
,
cvSize(30, 30)
view release on metacpan or search on metacpan
lib/DB/Object/Constraint/Foreign.pm view on Meta::CPAN
=head2 on_delete
Sets or gets the action taken by the database upon deletion of this foreign key.
For example: C<nothing>, C<restrict>, C<cascade>, C<null> or C<default>
It returns a L<scalar object|Module::Generic::Scalar>
=head2 on_update
Sets or gets the action taken by the database upon update of this foreign key.
For example: C<nothing>, C<restrict>, C<cascade>, C<null> or C<default>
It returns a L<scalar object|Module::Generic::Scalar>
=head2 table
view release on metacpan or search on metacpan
will *not* be accepted if the foreign key doesn't exist (as primary key) in the parent table; you will
get an error message. But for multi-column foreign keys dtF/SQL cannot check the referential integrity. A
record will be accepted even if the foreign key doesn't exist (as primary key) in the parent table. Don't rely
on this feature.
* The dtF/SQL cascaded delete feature (ON DELETE DELETE or ON DELETE CASCADE action-constraint/trigger),
which helps to preserve the referential integrity of a database, doesn't work properly. Let's say, table
A is the parent table with primary key [A.id]. Table B is the dependent table, i.e. contains a foreign key
[B.id] which is the primary key of table A. The primary key of table B is a multi-column key [B.id, B.id2],
i.e. the foreign key [B.id] of table B is part of its primary key. Table B was created with the cascaded
delete action-constraint set for this foreign key [B.id]. If you now delete a record in table A, dtF/SQL will,
as you expect, delete the corresponding records (where A.id = B.id) in table B too. *But*, if you try to
insert one of the just deleted records into table B again (same multi-column primary key), you will get a
referential integrity error, saying "UNIQUE value exists for column 'B.id' ", i.e. dtF/SQL hasn't realized,
that the primary key is free for use again. This doesn't happen if you delete the corresponding records in
table B by hand, i.e. with a DELETE statement. Because this cascaded delete behavior is not what you might
expect, don't rely on this feature.
* dtF/SQL is also a bit weak on documentation. It contains some errors (e.g. wrong cross-references in
the C/C++/Java Reference manual), but generally it's not that bad that one can't work with it. All in
all, it doesn't go into deep detail and is very brief on some relevant topics (auto-commit behavior,
view release on metacpan or search on metacpan
if (0==strcmp(word, "both")) return DBDPG_TRUE;
if (0==strcmp(word, "by")) return DBDPG_TRUE;
if (0==strcmp(word, "cache")) return DBDPG_TRUE;
if (0==strcmp(word, "call")) return DBDPG_TRUE;
if (0==strcmp(word, "called")) return DBDPG_TRUE;
if (0==strcmp(word, "cascade")) return DBDPG_TRUE;
if (0==strcmp(word, "cascaded")) return DBDPG_TRUE;
if (0==strcmp(word, "case")) return DBDPG_TRUE;
if (0==strcmp(word, "cast")) return DBDPG_TRUE;
if (0==strcmp(word, "catalog")) return DBDPG_TRUE;
if (0==strcmp(word, "chain")) return DBDPG_TRUE;
if (0==strcmp(word, "char")) return DBDPG_TRUE;
view release on metacpan or search on metacpan
if (0==strcmp(word, "both")) return DBDPG_TRUE;
if (0==strcmp(word, "by")) return DBDPG_TRUE;
if (0==strcmp(word, "cache")) return DBDPG_TRUE;
if (0==strcmp(word, "call")) return DBDPG_TRUE;
if (0==strcmp(word, "called")) return DBDPG_TRUE;
if (0==strcmp(word, "cascade")) return DBDPG_TRUE;
if (0==strcmp(word, "cascaded")) return DBDPG_TRUE;
if (0==strcmp(word, "case")) return DBDPG_TRUE;
if (0==strcmp(word, "cast")) return DBDPG_TRUE;
if (0==strcmp(word, "catalog")) return DBDPG_TRUE;
if (0==strcmp(word, "chain")) return DBDPG_TRUE;
if (0==strcmp(word, "char")) return DBDPG_TRUE;
view release on metacpan or search on metacpan
}
} else if (word[0] < 'e') {
if (word[1] < 'i') {
if (word[1] < 'e') {
if (word[2] < 't') {
test_str = "cascade";
} else {
test_str = "catalog";
}
} else if (word[0] < 'd') {
test_str = "between";
if (word[0] < 'b') {
test_str = "absolute";
} else if (word[0] < 'c') {
test_str = "backward";
} else {
test_str = "cascaded";
}
} else if (word[2] < 's') {
if (word[3] < 'e') {
test_str = "defaults";
} else {
view release on metacpan or search on metacpan
}
} else if (word[0] < 'e') {
if (word[1] < 'i') {
if (word[1] < 'e') {
if (word[2] < 't') {
test_str = "cascade";
} else {
test_str = "catalog";
}
} else if (word[0] < 'd') {
test_str = "between";
if (word[0] < 'b') {
test_str = "absolute";
} else if (word[0] < 'c') {
test_str = "backward";
} else {
test_str = "cascaded";
}
} else if (word[2] < 's') {
if (word[3] < 'e') {
test_str = "defaults";
} else {
view release on metacpan or search on metacpan
lib/DBD/SQLAnywhere/GetInfo.pm view on Meta::CPAN
bottom
break
by
call
capability
cascade
case
cast
char
char_convert
character
view release on metacpan or search on metacpan
lib/DBD/SQLite.pm view on Meta::CPAN
UNIQUE_OR_PRIMARY
);
my $DEFERRABLE_RE = qr/
(?:(?:
on \s+ (?:delete|update) \s+ (?:set \s+ null|set \s+ default|cascade|restrict|no \s+ action)
|
match \s* (?:\S+|".+?(?<!")")
) \s*)*
((?:not)? \s* deferrable (?: \s* initially \s* (?: immediate | deferred))?)?
/sxi;
view release on metacpan or search on metacpan
cci-src/src/compat/dbi_compat.h view on Meta::CPAN
/* Class definition */
extern DB_OBJECT *db_create_class (const char *name);
extern DB_OBJECT *db_create_vclass (const char *name);
extern int db_drop_class (DB_OBJECT * classobj);
extern int db_drop_class_ex (DB_OBJECT * classobj, bool is_cascade_constraints);
extern int db_rename_class (DB_OBJECT * classobj, const char *new_name);
extern int db_add_index (DB_OBJECT * classobj, const char *attname);
extern int db_drop_index (DB_OBJECT * classobj, const char *attname);
view release on metacpan or search on metacpan
lib/DBICx/MaterializedPath.pm view on Meta::CPAN
Sets the materialized path.
=item update
Updates which change the parent of a record necessarily cascade through all their children and grandchildren to recompute and set their new materialized paths. E.g., given this treeE<ndash>
1
|
3
/ \
view release on metacpan or search on metacpan
t/40-diff.t view on Meta::CPAN
{ t => {} }, { t => {} },
);
is(scalar @ops, 1, 'one fk add');
my $sql = $ops[0]->as_sql;
like($sql, qr/ADD CONSTRAINT `fk_t_other` FOREIGN KEY \(`other_id`\) REFERENCES `other`\(`id`\)/, 'add fk');
like($sql, qr/ON DELETE CASCADE/, 'on delete cascade');
unlike($sql, qr/ON UPDATE/, 'on update NO ACTION omitted');
}
# --- Diff::ForeignKey drop ---
{
view release on metacpan or search on metacpan
lib/DBIO/Oracle/Diff/Index.pm view on Meta::CPAN
=head2 diff
my @ops = DBIO::Oracle::Diff::Index->diff($source, $target);
Walks tables present in B<both> C<$source> and C<$target> (C<scope = both>).
Source-only tables have their indexes cascaded by the table drop, so they
are not walked here; brand-new tables inline their indexes in the CREATE
TABLE statement emitted by L<DBIO::Oracle::Diff::Table>, so target-only
tables are skipped too.
=head2 as_sql
view release on metacpan or search on metacpan
lib/DBIO/PostgreSQL/Age/Storage.pm view on Meta::CPAN
$self->dbh->do('SELECT * FROM ag_catalog.create_graph(?)', undef, $name);
}
sub drop_graph {
my ($self, $name, $cascade) = @_;
$self->dbh->do(
'SELECT * FROM ag_catalog.drop_graph(?, ?)',
undef, $name, $cascade ? 1 : 0,
);
}
sub cypher {
lib/DBIO/PostgreSQL/Age/Storage.pm view on Meta::CPAN
$$ MATCH (a:Person {name: $name})-[:KNOWS]->(b) RETURN b.name $$,
['friend'],
{ name => 'Alice' },
);
$storage->drop_graph('social', 1); # cascade
=head1 DESCRIPTION
Extends L<DBIO::PostgreSQL::Storage> with Apache AGE graph database support.
Provides connection initialization, graph lifecycle management, and Cypher
lib/DBIO/PostgreSQL/Age/Storage.pm view on Meta::CPAN
Creates a new Apache AGE graph with the given name.
=head2 drop_graph
$storage->drop_graph('social');
$storage->drop_graph('social', 1); # cascade
Drops the named graph. Pass a true second argument to cascade the drop to all
vertices and edges within the graph.
=head2 cypher
my $rows = $storage->cypher(
view release on metacpan or search on metacpan
t/76joins.t
t/76select.t
t/78self_referencial.t
t/79aliasing.t
t/80unique.t
t/82cascade_copy.t
t/83cache.t
t/86sqlt.t
t/87ordered.t
t/88result_set_column.t
t/90join_torture.t
t/count/joined.t
t/count/prefetch.t
t/count/search_related.t
t/debug/core.t
t/debug/pretty.t
t/delete/cascade_missing.t
t/delete/complex.t
t/delete/m2m.t
t/delete/related.t
t/discard_changes_in_DESTROY.t
t/helpers/resultset_shortcuts.t
t/multi_create/m2m.t
t/multi_create/multilev_single_PKeqFK.t
t/multi_create/reentrance_count.t
t/multi_create/standard.t
t/multi_create/torture.t
t/ordered/cascade_delete.t
t/ordered/unordered_movement.t
t/pager/dbic_core.t
t/populate_more.t
t/prefetch/attrs_untouched.t
t/prefetch/correlated.t
view release on metacpan or search on metacpan
lib/DBIO/Cake.pm view on Meta::CPAN
my @relationship_funcs = qw(
belongs_to has_one has_many might_have many_to_many
rel_one rel_many
);
my @cascade_funcs = qw(
ddl_cascade dbic_cascade
);
my @other_funcs = qw(
view idx
col_created col_updated cols_updated_created
);
@EXPORT = (
@col_types, @col_modifiers,
@table_funcs, @relationship_funcs,
@cascade_funcs, @other_funcs,
);
# Per-caller options storage
my %CALLER_OPTS;
lib/DBIO/Cake.pm view on Meta::CPAN
$class->has_many($name, $related, @rest);
}
# --- Cascade helpers ---
sub ddl_cascade {
return (
on_delete => 'CASCADE',
on_update => 'CASCADE',
);
}
sub dbic_cascade {
return (
cascade_delete => 1,
cascade_copy => 1,
);
}
# --- Views ---
lib/DBIO/Cake.pm view on Meta::CPAN
Alias for C<has_many>.
=head1 CASCADE HELPERS
=head2 ddl_cascade
Returns C<on_delete =E<gt> 'CASCADE', on_update =E<gt> 'CASCADE'> for use in
relationship attribute hashes.
=head2 dbic_cascade
Returns C<cascade_delete =E<gt> 1, cascade_copy =E<gt> 1>.
=head1 VIEW SUPPORT
=head2 view
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/Class/AuditAny/Collector/AutoDBIC.pm view on Meta::CPAN
set_primary_key => ['id'],
has_many => [
$self->change_data_rel,
$namespace . '::' . $self->change_source_name,
{ "foreign.changeset_id" => "self.id" },
{ cascade_copy => 0, cascade_delete => 0 },
]
]
},
$self->change_source_name => {
table_name => $self->change_table_name,
lib/DBIx/Class/AuditAny/Collector/AutoDBIC.pm view on Meta::CPAN
],
has_many => [
$self->column_data_rel,
$namespace . '::' . $self->column_change_source_name,
{ "foreign.change_id" => "self.id" },
{ cascade_copy => 0, cascade_delete => 0 },
]
]
},
$self->column_change_source_name => {
table_name => $self->column_change_table_name,
view release on metacpan or search on metacpan
t/011_update_on_deleted_row.t view on Meta::CPAN
]);
my $title = $schema->resultset('Title')->first;
$schema->txn_do(sub {
$title->book->delete;
$title->update({name => 'test2'}); # update cascades to deleted book
});
is $al_schema->resultset('AuditLogChangeset')->count, 1, 'One changeset logged';
my $cset = $al_schema->resultset('AuditLogChangeset')->first ;
view release on metacpan or search on metacpan
lib/DBIx/Class/CDBICompat/Relationships.pm view on Meta::CPAN
}
if (ref $f_key eq 'HASH' && !$args) { $args = $f_key; undef $f_key; };
$args ||= {};
my $cascade = delete $args->{cascade} || '';
if (delete $args->{no_cascade_delete} || $cascade eq 'None') {
$args->{cascade_delete} = 0;
}
elsif( $cascade eq 'Delete' ) {
$args->{cascade_delete} = 1;
}
elsif( length $cascade ) {
warn "Unemulated cascade option '$cascade' in $class->has_many($rel => $f_class)";
}
if( !$f_key and !@f_method ) {
$class->ensure_class_loaded($f_class);
my $f_source = $f_class->result_source_instance;