view release on metacpan or search on metacpan
examples/dbic/lib/Foo/DB/Workflow/Instance.pm view on Meta::CPAN
L<Class::Workflow::Util::Delta> and write a mutating storage solution instead,
where there is only one workflow instance per item instead of a full history.
It might be useful to add a cross reference from the workflow instance to the
item it is keeping state for, so that when you delete the item instead of
having a huge chain of cascaded deletes trigger through the C<prev> field, a
single, aggregate cascading delete
(C<DELETE FROM workflow_instance WHERE item = ?>) could be used instead.
=head1 COLUMNS
view release on metacpan or search on metacpan
extra/Examples.pod view on Meta::CPAN
a/foo@@/main/tt/1
a/foo@@/main/tt-001/3 (TTT, TTT_1.03)
a/foo@@/main/tt-001/2 (TTT_1.01)
a/foo@@/main/tt-001/1 (TTT_1.00)
Now, we really experimented our cascade prevention, i.e. branching off
root. The continuity of the data is preserved, as well, using the
I<lsgenealogy> tool, as this of the version history.
=head3 Delivery
view release on metacpan or search on metacpan
lib/ClearPress/util.pm view on Meta::CPAN
my $sQuoted = $oUtil->quote($sUnquoted);
=head2 transactions - Enable/disable transaction commits
Example: A cascade of object saving
$util->transactions(0); # disable transactions
for my $subthing (@{$thing->subthings()}) { # cascade object saves (without commits)
$subthing->save();
}
$util->transactions(1); # re-enable transactions
$thing->save(); # save parent object (with commit)
view release on metacpan or search on metacpan
lib/Clutch/Worker.pm view on Meta::CPAN
handle_connection
register_function
dispatch
do_request
do_request_background
cascade
);
my $FUNCTIONS = +{};
my $CONTEXT;
lib/Clutch/Worker.pm view on Meta::CPAN
$code && $code->($req->{args});
return;
}
sub cascade {
my ($function, $args) = @_;
my $code = $CONTEXT->{functions}->{$function};
$code ? ($code->($args) || '') : "ERROR: unknow function";
}
lib/Clutch/Worker.pm view on Meta::CPAN
$callback_coderef's first argument is a client request parameter.
=back
=head2 cascade($function_name, $args);
call self worker function.
=over
view release on metacpan or search on metacpan
t/tests/kits.t view on Meta::CPAN
subtest 'introspection and conditionals' => sub {
my ($ok, $exception, $pkgname) = compile('two','');
ok($ok,'importing other features, and maybe-importing a non-existent one, should compile')
or diag $exception;
ok($pkgname->can('two'),'the requested feature should be imported');
ok($pkgname->can('one'),'the cascaded feature should be imported');
ok($pkgname->can('args'),'the optional cascaded feature should be imported');
is($pkgname->two,2,'the requested feature should work');
is($pkgname->one,1,'the cascaded feature should work');
is($pkgname->args,[4,5,6],'the optional cascaded feature should get the arguments');
($ok, $exception, $pkgname) = compile('qw(two not_two)','');
ok(!$ok,'importing confilcting features should die');
like($exception,qr{\bnot two\b},'and the exception should bubble up');
};
view release on metacpan or search on metacpan
0.46 2016-04-17
- Fix a use line which specified the required version of Text::Diff as
"v1.44". This caused weirdness to cascade in the Makefile.PL. Reported by
Olaf Alders. GitHub #60.
0.45 2016-04-11
view release on metacpan or search on metacpan
share/js/jquery-1.11.3.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/Color/Library/Dictionary/NBS_ISCC/M.pm view on Meta::CPAN
cartridge buff cartridgebuff #f3e5ab
cartridge buff cartridgebuff #c2b280
cascade cascade #66ada4
cashew cashew #6f4e37
cashew lake cashewlake #6f4e37
lib/Color/Library/Dictionary/NBS_ISCC/M.pm view on Meta::CPAN
['nbs-iscc-m:carthamusred.11','carthamusred','carthamus red',[190,0,50],'be0032',12451890],
['nbs-iscc-m:carthamusrose.11','carthamusrose','carthamus rose',[190,0,50],'be0032',12451890],
['nbs-iscc-m:cartouche.58','cartouche','cartouche',[111,78,55],'6f4e37',7294519],
['nbs-iscc-m:cartridgebuff.89','cartridgebuff','cartridge buff',[243,229,171],'f3e5ab',15984043],
['nbs-iscc-m:cartridgebuff.90','cartridgebuff','cartridge buff',[194,178,128],'c2b280',12759680],
['nbs-iscc-m:cascade.163','cascade','cascade',[102,173,164],'66ada4',6729124],
['nbs-iscc-m:cashew.58','cashew','cashew',[111,78,55],'6f4e37',7294519],
['nbs-iscc-m:cashewlake.58','cashewlake','cashew lake',[111,78,55],'6f4e37',7294519],
['nbs-iscc-m:cashewnut.61','cashewnut','cashew nut',[99,81,71],'635147',6508871],
['nbs-iscc-m:cashoo.58','cashoo','cashoo',[111,78,55],'6f4e37',7294519],
['nbs-iscc-m:casinopink.255','casinopink','casino pink',[179,68,108],'b3446c',11748460],
view release on metacpan or search on metacpan
t/app/Plack/App/Cascade.t view on Meta::CPAN
use Plack::App::Cascade;
use Plack::App::URLMap;
use Plack::App::File;
# Serve static files from multiple search paths
my $cascade = Plack::App::Cascade->new;
$cascade->add( Plack::App::File->new(root => "/www/example.com/foo")->to_app );
$cascade->add( Plack::App::File->new(root => "/www/example.com/bar")->to_app );
my $app = Plack::App::URLMap->new;
$app->map("/static", $cascade);
$app->to_app;
=head1 DESCRIPTION
Plack::App::Cascade is a Plack middleware component that compounds
view release on metacpan or search on metacpan
lib/Config/App.pm view on Meta::CPAN
=head1 DESCRIPTION
The intent of this module is to provide for projects (within a directory tree)
configuration fetcher and merger functionality that supports configuration files
that may include other files and "cascade" or merge bits of these files into an
"active" configuration based on server name, user account name the process is
running under, and/or enviornment variable flag. The goal being that a single
unified configuration can be built from a set of files (real files or URLs) and
slices of that configuration can be used as the active configuration in any
enviornment.
lib/Config/App.pm view on Meta::CPAN
The following are the supported methods of this module:
=head2 new
The constructor will return an object that can be used to query and alter the
derived cascaded configuration.
# seeks initial conf file "config/app.yaml" (then others)
my $conf = Config::App->new;
By default, with no parameters passed, the constructor assumes the initial
lib/Config/App.pm view on Meta::CPAN
$conf->put( qw( database dbname new_db_name ) );
=head2 conf
This method will return the entire derived cascaded configuration data set.
But more interesting is that you can pass in data structures to alter the
configuration.
my $full_conf_as_data_structure = $conf->conf;
view release on metacpan or search on metacpan
Directory.pm view on Meta::CPAN
=head1 DESCRIPTION
Config::Directory presents an OO hash-based interface to directories
of files. It is particularly suited to configuration directories where
settings can cascade across multiple directories with multiple files
per directory. Using multiple directories for configuration data
allows an application to support, for example, distribution defaults,
global site settings, and user-specific local settings, while using
files for individual config items makes update interfaces much simpler,
does away with lots of parsing problems, and is nicely scriptable.
view release on metacpan or search on metacpan
lib/Config/GitLike.pm view on Meta::CPAN
is => 'rw',
isa => Bool,
default => sub { 0 },
);
has 'cascade' => (
is => 'rw',
isa => Bool,
default => sub { 0 },
);
lib/Config/GitLike.pm view on Meta::CPAN
my $path = File::Spec->catpath(
$vol, File::Spec->catdir(@dirs), $self->dir_file
);
if (-f $path) {
push @found, $path;
last unless $self->cascade;
}
pop @dirs;
}
$self->load_file( $_ ) for reverse @found;
}
lib/Config/GitLike.pm view on Meta::CPAN
C<semicolon> if you'd rather they start with C<; >. If your comments are
indented with leading white space, and you want that white space to appear in
front of the comment character, rather than after, pass a true value to
C<indented>.
=head2 cascade( $bool )
Gets or sets if only the B<deepest> configuration file in a directory
tree is loaded, or if all of them are loaded, shallowest to deepest.
Alternately, C<cascade =E<gt> 1> can be passed to C<new>.
=head2 origins
Returns a hash mapping each config key with the file it was loaded from.
view release on metacpan or search on metacpan
lib/Config/Model/Itself/TkEditUI.pm view on Meta::CPAN
$args->{'-title'} ||= "cme meta edit $model_name" ;
$cw->SUPER::Populate($args) ;
my $model_menu = $cw->{my_menu}->cascade(
-label => 'Model',
-menuitems => $cw->build_menu() ,
) ;
$cw->{cm_lib_dir} = $cm_lib_dir ;
view release on metacpan or search on metacpan
lib/Config/Model/models/Multistrap.pod view on Meta::CPAN
Class for multistrap configuration files. Note that multistrap is based on INI where section and keys are case insensitive. Hence all sections and keys are converted to lower case and written back as lower case. Most values (but not all) are also cas...
=head1 Elements
=head2 include - Include file for cascaded configuration
To support multiple variants of a basic (common) configuration, "multistrap" allows configuration files to include other (more general) configuration files. i.e. the most detailed / specific configuration file is specified on the command line and tha...
=head2 arch
view release on metacpan or search on metacpan
lib/Config/Model/TkUI.pm view on Meta::CPAN
Tk::ObjScanner::scan_object( $cw->{instance}->config_root );
}
],
[ command => 'quit (Ctrl-q)', -command => sub { $cw->quit } ],
];
$menubar->cascade( -label => 'File', -menuitems => $file_items );
$cw->add_help_menu($menubar);
$cw->bind( '<Control-s>', sub { $cw->save } );
$cw->bind( '<Control-q>', sub { $cw->quit } );
lib/Config/Model/TkUI.pm view on Meta::CPAN
# [ qw/command cut -command/, sub{ $cw->edit_cut }],
[ command => 'copy (Ctrl-c)', '-command', sub { $cw->edit_copy } ],
[ command => 'paste (Ctrl-v)', '-command', sub { $cw->edit_paste } ],
[ command => 'find (Ctrl-f)', '-command', sub { $cw->pack_find_widget; } ],
];
$menubar->cascade( -label => 'Edit', -menuitems => $edit_items );
my $option_menu = $menubar->cascade( -label => 'Options');
$option_menu->command( -label => 'Font', -command => sub { $cw->set_font(); });
# create 'hide empty values'
$cw->{hide_empty_values} = 0;
$option_menu->checkbutton(
lib/Config/Model/TkUI.pm view on Meta::CPAN
[ qw/command About -command/, $about_sub ],
[ qw/command Usage -command/, $help_sub ],
[ command => 'More info', -command => $info_sub ],
[ command => "$class help", -command => $man_sub ],
];
$menubar->cascade( -label => 'Help', -menuitems => $help_items );
}
# Note: this callback is called by Tk::Tree *before* changing the
# indicator. And the indicator is used by Tk::Tree to store the
# open/close/none mode. So we can't rely on getmode for path that are
view release on metacpan or search on metacpan
lib/Config/Model/Value.pm view on Meta::CPAN
}
}
=head2 Cascaded warping
Warping value can be cascaded: C<A> can be warped by C<B> which can be
warped by C<C>. But this feature should be avoided since it can lead
to a model very hard to debug. Bear in mind that:
=over
view release on metacpan or search on metacpan
- is_any_hash, is_any_array convenience functions
in Config::Neat::Util
0.9 May 11, 2014
- Implemented proper cascaded inheritance
0.8 May 10, 2014
- Fix inheriting the same local paths from different files
(save the file name as a part of the cache item key)
view release on metacpan or search on metacpan
is ($cfg9->getProperty('foo', 'def'), 'def', "alias 3");
my $cfg10;
eval { $cfg10=Config::Properties::Simple->new(file => 't/example2.props',
defaults => $cfg7) };
ok ($cfg10 && !$@, "cascade");
is ($cfg10->getProperty('foo'), 'foo2', "cascade 2");
is ($cfg10->getProperty('bar'), 'bar2', "cascade 3");
view release on metacpan or search on metacpan
lib/Connector.pm view on Meta::CPAN
=head2 get_reference [deprecated]
Rarely used, returns the value of a reference node. Currently used by
Connector::Multi in combination with Connector::Proxy::Config::Versioned
to create internal links and cascaded connectors. See Connector::Multi
for details.
=head2 set
The set method is a "all in one" implementation, that is used for either type
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)