Result:
Your query is still running in background...Search in progress...
at this time found 290 distributions and 946 files matching your query.
Next refresh should show more results. ( run in 1.059 )
Next refresh should show more results. ( run in 1.059 )
Bubblegum
view release on metacpan or search on metacpan
lib/Bubblegum.pm view on Meta::CPAN
=head2 Bubblegum Topology
Bubblegum type classes are built as extensions to the autobox type classes. The
following is the custom autobox type, subtype and roles hierarchy. All native
data types inherit their functionality from the universal class, then whichever
autobox subtype class is appropriate and so on. Bubblegum overlays object-roles
on top of this design to enforce constraints and consistency. The following is
the current layout of the object roles and relationships. Note, this will likely
evolve.
INSTANCE -+
Business-DK-Postalcode
view release on metacpan or search on metacpan
examples/mojo-webapp/public/css/bootstrap.css.map view on Meta::CPAN
{"version":3,"file":"bootstrap.css","sources":["bootstrap.css","less/normalize.less","less/print.less","less/glyphicons.less","less/scaffolding.less","less/mixins/vendor-prefixes.less","less/mixins/tab-focus.less","less/mixins/image.less","less/type....
Business-KontoCheck
view release on metacpan or search on metacpan
zlib/ChangeLog view on Meta::CPAN
- mention in README that the zlib format is now RFC1950
- updated Makefile.dj2
- added algorithm.doc
Changes in 1.0.1 (20 May 96) [1.0 skipped to avoid confusion]
- fix array overlay in deflate.c which sometimes caused bad compressed data
- fix inflate bug with empty stored block
- fix MSDOS medium model which was broken in 0.99
- fix deflateParams() which could generate bad compressed data
- Bytef is define'd instead of typedef'ed (work around Borland bug)
- added an INDEX file
Business-US-USPS-IMB
view release on metacpan or search on metacpan
libs/usps4cb.c view on Meta::CPAN
** Change Record
** -------------
** Date Change Flag Who Description
** ---------- ----------- --- --------------------------------------------------
** 2005/10/26 TPG009 RBP Update eyecatcher version & date V1R2M2 2011/05/14
** 2011/05/14 TPG008 RBP Remove null termination BarStringPtr[65], caused overlay
** 2005/10/26 TPG007 RBP Update eyecatcher version & date V1R2M0 2008/03/03
** 2005/10/26 TPG006 RBP Add entry point 'uspsvcb'
** 2005/10/22 TPG005 RBP Change entry point to 'usps4cb'
** 2005/10/19 TPG004 RBP Add eyecatcher to identify this module
** 2005/10/18 TPG003 RBP Fix check for NULL parameters
Business-cXML
view release on metacpan or search on metacpan
t/xml-catalog/cXML-1.2.036/cXML.dtd view on Meta::CPAN
<!--
Use of the ItemSegment element is deprecated.
Defines an item segment for the index. An item segment is an
overlay for index items, allowing suppliers to override certain
item attributes on a per-contract basis.
Items may be segmented by some agreed-upon user-specific key that
is used to determine who is eligible for these particular overlaid
attributes (such as reduced or different prices). Omitting the
t/xml-catalog/cXML-1.2.036/cXML.dtd view on Meta::CPAN
>
<!--
Use of the ContractItem element is deprecated
A particular (custom) item overlay for a index item. The item is
referenced by the supplierPartID.
ItemID - ID for the part to be overlaid.
UnitPrice - Contract price for item
Extrinsic - Named overlay. The Extrinsic should be named with the
item field name it is to overlay. The Extrinsic must contain a
<value> element which supplies the replacement value for the item
field.
For example:
<ContractItem>
<ItemID>
Business-eWAY-RapidAPI
view release on metacpan or search on metacpan
examples/web/Scripts/jquery-ui-1.8.11.custom.min.js view on Meta::CPAN
*/
(function(c,j){var k={buttons:true,height:true,maxHeight:true,maxWidth:true,minHeight:true,minWidth:true,width:true},l={maxHeight:true,maxWidth:true,minHeight:true,minWidth:true};c.widget("ui.dialog",{options:{autoOpen:true,buttons:{},closeOnEscape:t...
c(this).css("top",a.top-b)}},resizable:true,show:null,stack:true,title:"",width:300,zIndex:1E3},_create:function(){this.originalTitle=this.element.attr("title");if(typeof this.originalTitle!=="string")this.originalTitle="";this.options.title=this.opt...
-1).css("outline",0).keydown(function(i){if(b.closeOnEscape&&i.keyCode&&i.keyCode===c.ui.keyCode.ESCAPE){a.close(i);i.preventDefault()}}).attr({role:"dialog","aria-labelledby":e}).mousedown(function(i){a.moveToTop(false,i)});a.element.show().removeAt...
"button").hover(function(){h.addClass("ui-state-hover")},function(){h.removeClass("ui-state-hover")}).focus(function(){h.addClass("ui-state-focus")}).blur(function(){h.removeClass("ui-state-focus")}).click(function(i){a.close(i);return false}).append...
b.beforeclose;f.find("*").add(f).disableSelection();b.draggable&&c.fn.draggable&&a._makeDraggable();b.resizable&&c.fn.resizable&&a._makeResizable();a._createButtons(b.buttons);a._isOpen=false;c.fn.bgiframe&&g.bgiframe()},_init:function(){this.options...
a.element.attr("title",a.originalTitle);return a},widget:function(){return this.uiDialog},close:function(a){var b=this,d,e;if(false!==b._trigger("beforeClose",a)){b.overlay&&b.overlay.destroy();b.uiDialog.unbind("keypress.ui-dialog");b._isOpen=false;...
isNaN(e)||(d=Math.max(d,e))}});c.ui.dialog.maxZ=d}return b}},isOpen:function(){return this._isOpen},moveToTop:function(a,b){var d=this,e=d.options;if(e.modal&&!a||!e.stack&&!e.modal)return d._trigger("focus",b);if(e.zIndex>c.ui.dialog.maxZ)c.ui.dialo...
d.element.attr(a);d._trigger("focus",b);return d},open:function(){if(!this._isOpen){var a=this,b=a.options,d=a.uiDialog;a.overlay=b.modal?new c.ui.dialog.overlay(a):null;a._size();a._position(b.position);d.show(b.show);a.moveToTop(true);b.modal&&d.bi...
c(a.element.find(":tabbable").get().concat(d.find(".ui-dialog-buttonpane :tabbable").get().concat(d.get()))).eq(0).focus();a._isOpen=true;a._trigger("open");return a}},_createButtons:function(a){var b=this,d=false,e=c("<div></div>").addClass("ui-dial...
h){h=c.isFunction(h)?{click:h,text:f}:h;f=c('<button type="button"></button>').attr(h,true).unbind("click").click(function(){h.click.apply(b.element[0],arguments)}).appendTo(g);c.fn.button&&f.button()});e.appendTo(b.uiDialog)}},_makeDraggable:functio...
d.height==="auto"?"auto":c(this).height();c(this).height(c(this).height()).addClass("ui-dialog-dragging");b._trigger("dragStart",f,a(h))},drag:function(f,h){b._trigger("drag",f,a(h))},stop:function(f,h){d.position=[h.position.left-e.scrollLeft(),h.po...
position:f.position,size:f.size}}a=a===j?this.options.resizable:a;var d=this,e=d.options,g=d.uiDialog.css("position");a=typeof a==="string"?a:"n,e,s,w,se,sw,ne,nw";d.uiDialog.resizable({cancel:".ui-dialog-content",containment:"document",alsoResize:d....
h){c(this).removeClass("ui-dialog-resizing");e.height=c(this).height();e.width=c(this).width();d._trigger("resizeStop",f,b(h));c.ui.dialog.overlay.resize()}}).css("position",g).find(".ui-resizable-se").addClass("ui-icon ui-icon-grip-diagonal-se")},_m...
1)b[1]=b[0];c.each(["left","top"],function(g,f){if(+b[g]===b[g]){d[g]=b[g];b[g]=f}});a={my:b.join(" "),at:b.join(" "),offset:d.join(" ")}}a=c.extend({},c.ui.dialog.prototype.options.position,a)}else a=c.ui.dialog.prototype.options.position;(e=this.ui...
l)d[g]=f});e&&this._size();this.uiDialog.is(":data(resizable)")&&this.uiDialog.resizable("option",d)},_setOption:function(a,b){var d=this,e=d.uiDialog;switch(a){case "beforeclose":a="beforeClose";break;case "buttons":d._createButtons(b);break;case "c...
break;case "draggable":var g=e.is(":data(draggable)");g&&!b&&e.draggable("destroy");!g&&b&&d._makeDraggable();break;case "position":d._position(b);break;case "resizable":(g=e.is(":data(resizable)"))&&!b&&e.resizable("destroy");g&&typeof b==="string"&...
this.uiDialog.is(":visible");this.element.show().css({width:"auto",minHeight:0,height:0});if(a.minWidth>a.width)a.width=a.minWidth;b=this.uiDialog.css({height:"auto",width:a.width}).height();d=Math.max(0,a.minHeight-b);if(a.height==="auto")if(c.suppo...
this.uiDialog.resizable("option","minHeight",this._minHeight())}});c.extend(c.ui.dialog,{version:"1.8.11",uuid:0,maxZ:0,getTitleId:function(a){a=a.attr("id");if(!a){this.uuid+=1;a=this.uuid}return"ui-dialog-title-"+a},overlay:function(a){this.$el=c.u...
0){setTimeout(function(){c.ui.dialog.overlay.instances.length&&c(document).bind(c.ui.dialog.overlay.events,function(d){if(c(d.target).zIndex()<c.ui.dialog.overlay.maxZ)return false})},1);c(document).bind("keydown.dialog-overlay",function(d){if(a.opti...
height:this.height()});c.fn.bgiframe&&b.bgiframe();this.instances.push(b);return b},destroy:function(a){var b=c.inArray(a,this.instances);b!=-1&&this.oldInstances.push(this.instances.splice(b,1)[0]);this.instances.length===0&&c([document,window]).unb...
b=Math.max(document.documentElement.offsetHeight,document.body.offsetHeight);return a<b?c(window).height()+"px":a+"px"}else return c(document).height()+"px"},width:function(){var a,b;if(c.browser.msie&&c.browser.version<7){a=Math.max(document.documen...
function(){a=a.add(this)});a.css({width:0,height:0}).css({width:c.ui.dialog.overlay.width(),height:c.ui.dialog.overlay.height()})}});c.extend(c.ui.dialog.overlay.prototype,{destroy:function(){c.ui.dialog.overlay.destroy(this.$el)}})})(jQuery);
;/*
* jQuery UI Slider 1.8.11
*
* Copyright 2011, AUTHORS.txt (http://jqueryui.com/about)
* Dual licensed under the MIT or GPL Version 2 licenses.
C-sparse
view release on metacpan or search on metacpan
src/sparse-0.4.4/perl/t/include/block/block.h view on Meta::CPAN
int bdrv_change_backing_file(BlockDriverState *bs,
const char *backing_file, const char *backing_fmt);
void bdrv_register(BlockDriver *bdrv);
int bdrv_drop_intermediate(BlockDriverState *active, BlockDriverState *top,
BlockDriverState *base);
BlockDriverState *bdrv_find_overlay(BlockDriverState *active,
BlockDriverState *bs);
BlockDriverState *bdrv_find_base(BlockDriverState *bs);
typedef struct BdrvCheckResult {
CDB-TinyCDB-Wrapper
view release on metacpan or search on metacpan
lib/CDB/TinyCDB/Wrapper.pm view on Meta::CPAN
Michael Alan Dorman, C<< <mdorman at ironicdesign.com> >>
=head1 BUGS
Please report any bugs or feature requests to
C<bug-cdb-tinycdb-overlay at rt.cpan.org>, or through the web
interface at
L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=CDB-TinyCDB-Wrapper>.
I will be notified, and then you'll automatically be notified of
progress on your bug as I make changes.
CGI-Application-Plugin-Authentication
view release on metacpan or search on metacpan
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
}
return $ph->{features}->access($key, @_);
}
# No args - get the auto_features & overlay the regular features
my %features;
my %auto_features = $ph->{auto_features}->access();
while (my ($name, $info) = each %auto_features) {
my $failures = $self->prereq_failures($info);
my $disabled = grep( /^(?:\w+_)?(?:requires|conflicts)$/,
CGI-Imagemap
view release on metacpan or search on metacpan
lib/CGI/Imagemap.pm view on Meta::CPAN
}
elsif( $y1>$y2 ){
next if $y1==0;
}
else {
# Horizontal span overlaying the X axis. Consider it an intersection
# iff. it extends into the left side of the X axis
$intersections++ if ( ($x1 < 0) || ($x2 < 0) );
next;
}
CGI-Inspect
view release on metacpan or search on metacpan
lib/CGI/Inspect/htdocs/js/themes/default/images/colorpicker_hex.png
lib/CGI/Inspect/htdocs/js/themes/default/images/colorpicker_hsb_b.png
lib/CGI/Inspect/htdocs/js/themes/default/images/colorpicker_hsb_h.png
lib/CGI/Inspect/htdocs/js/themes/default/images/colorpicker_hsb_s.png
lib/CGI/Inspect/htdocs/js/themes/default/images/colorpicker_indic.gif
lib/CGI/Inspect/htdocs/js/themes/default/images/colorpicker_overlay.png
lib/CGI/Inspect/htdocs/js/themes/default/images/colorpicker_rgb_b.png
lib/CGI/Inspect/htdocs/js/themes/default/images/colorpicker_rgb_g.png
lib/CGI/Inspect/htdocs/js/themes/default/images/colorpicker_rgb_r.png
lib/CGI/Inspect/htdocs/js/themes/default/images/colorpicker_select.gif
lib/CGI/Inspect/htdocs/js/themes/default/images/colorpicker_submit.png
CIPP
view release on metacpan or search on metacpan
doc/html2ps view on Meta::CPAN
}
sub img {
local($_,$red,$grn,$blu)=@_;
local($beg,$end);
($red,$grn,$blu)=("FF","FF","FF") if(!$opt_U);
while (/<(img|fig|hr|overlay|object)\s/i) {
$imgcmd="\L$1";
$beg=$`;
$'=~/>/;
$img=" $`";
$end=$';
doc/html2ps view on Meta::CPAN
$al=0;
$off="";
($align)=$img=~/align\s*=\s*['"]?(\w*)/i;
if($align=~/^middle$/i) {$al=1};
if($align=~/^top$/i) {$al=2};
if($imgcmd eq "overlay") {
$al=4;
$xoff=0;
$yoff=0;
if($img=~/\s*x\s*=\s*['"]?(\d+)/i) {$xoff=$1};
if($img=~/\s*y\s*=\s*['"]?(\d+)/i) {$yoff=$1};
doc/html2ps view on Meta::CPAN
if($imgcmd eq "fig") {
$end=~m|</fig>|i;
$fig=$`;
$end=$';
$over="";
while($fig=~/(<overlay$R)/ig) {$over.=$1};
($dum,$cap)=$fig=~m|<caption$R([\w\W]*)</caption>|i;
($dum,$cred)=$fig=~m|<credit$R([\w\W]*)</credit>|i;
$text=")BN($text$over)BN($cap)BN($cred)BN(";
}
}
CPAN-Testers-WWW-Statistics
view release on metacpan or search on metacpan
t/data/cpanstats-test.json view on Meta::CPAN
{"test":{"count":{"entries":100,"reports":100,"posters":"182","distros":0},"pass":{"MacPPC":{"5.4.0":{"all":{"Net-Whois":1,"URI":1,"Storable":1,"Mac-Conversions":1,"Digest-MD5":1}}},"PA-RISC1.1":{"5.5.3":{"all":{"DBD-Oracle":1,"Curses":1}},"5.4.4":{"...
CPANDB
view release on metacpan or search on metacpan
- Updated to ORLite 1.92 for correct use of readonly
- Updated to ORLite::Mirror 1.22 for env_proxy support
- Removed the use of the (broken) ORLite::Statistics module
0.17 Fri 25 Nov 2011
- Updated to ORLite 1.51 for overlay support
- Added CPANDB::Author->distributions method
0.16 Thu 24 Nov 2011
- Added CPANDB->latest method
- Added CPANDB->latest_datetime method
CPANPLUS-Dist-Gentoo
view release on metacpan or search on metacpan
lib/CPANPLUS/Dist/Gentoo.pm view on Meta::CPAN
# Using default values from your make.conf
cpan2dist --format=CPANPLUS::Dist::Gentoo --buildprereq Some::Module
# Specifying your own options
cpan2dist --format=CPANPLUS::Dist::Gentoo \
--dist-opts overlay=/usr/local/portage \
--dist-opts distdir=/usr/portage/distfiles \
--dist-opts manifest=yes \
--dist-opts keywords=x86 \
--dist-opts header="# Begin" \
--dist-opts footer="# End" \
Any::Module You::Like
=head1 DESCRIPTION
This module is a CPANPLUS backend that recursively generates Gentoo ebuilds for a given package in the default overlay, updates the manifest, and even emerges it (together with its dependencies) if the user requires it.
The generated ebuilds are placed into the C<perl-gcpanp> category.
They favour depending on a C<virtual>, on C<perl-core>, C<dev-perl> or C<perl-gcpan> (in that order) rather than C<perl-gcpanp>.
Existing ebuilds will be searched into the main C<PORTDIR> portage tree and then into the overlays listed in C<PORTDIR_OVERLAY>.
=head1 OPTIONS
You can pass specific options to L<cpan2dist> by using the C<--dist-opts> command-line argument followed by a C<key=value> pair, where C<key> is the option name and C<value> is what it is set to.
C<--dist-opts> can be used several times.
lib/CPANPLUS/Dist/Gentoo.pm view on Meta::CPAN
Defaults to C<yes>.
=item *
C<overlay>
The path of the overlay in which the generated ebuilds will be written.
Defaults to the first overlay listed in C<PORTDIR_OVERLAY> (as returned by C<emerge --info>) or F</usr/local/portage> if this variable is empty.
=item *
C<distdir>
lib/CPANPLUS/Dist/Gentoo.pm view on Meta::CPAN
=over 4
=item *
Use the perl overlay located at L<http://git.overlays.gentoo.org/gitweb/?p=proj/perl-overlay.git>.
It contains an ebuild for L<CPANPLUS::Dist::Gentoo> which will most likely be up-to-date given the reactivity of Gentoo's Perl herd.
=item *
Bootstrap an ebuild for L<CPANPLUS::Dist::Gentoo> using itself.
lib/CPANPLUS/Dist/Gentoo.pm view on Meta::CPAN
=cut
use constant CATEGORY => 'perl-gcpanp';
my $overlays;
my $default_keywords;
my $default_distdir;
my $main_portdir;
my %dependencies;
lib/CPANPLUS/Dist/Gentoo.pm view on Meta::CPAN
verbose => 0,
buffer => \$buffers,
);
if ($success) {
if ($buffers =~ /^PORTDIR_OVERLAY=(.*)$/m) {
$overlays = [ map Cwd::abs_path($_), split ' ', $unquote->($1) ];
}
if ($buffers =~ /^ACCEPT_KEYWORDS=(.*)$/m) {
$default_keywords = [ split ' ', $unquote->($1) ];
}
if ($buffers =~ /^DISTDIR=(.*)$/m) {
lib/CPANPLUS/Dist/Gentoo.pm view on Meta::CPAN
name version author distribution desc uri src license
meta min_perl
fetched_arch
requires configure_requires recursive_requires
ebuild_name ebuild_version ebuild_dir ebuild_file
portdir_overlay overlay distdir keywords do_manifest header footer
force verbose
>);
$stat->force($conf->get_conf('force'));
$stat->verbose($conf->get_conf('verbose'));
lib/CPANPLUS/Dist/Gentoo.pm view on Meta::CPAN
} else {
$footer = '';
}
$stat->footer($footer);
my $overlay = delete $opts{overlay};
if (defined $overlay) {
$overlay = Cwd::abs_path($overlay);
} else {
$overlay = $overlays->[0];
$overlay = '/usr/local/portage' unless defined $overlay;
}
$stat->overlay($overlay);
my $distdir = delete $opts{distdir};
$distdir = (defined $distdir) ? Cwd::abs_path($distdir) : $default_distdir;
$stat->distdir($distdir);
return $FAIL->("distdir isn't writable") if $stat->do_manifest && !-w $distdir;
$stat->fetched_arch($mod->status->fetch);
my $cur = File::Spec->curdir();
my $portdir_overlay;
for (@$overlays) {
if ($_ eq $overlay or File::Spec->abs2rel($overlay, $_) eq $cur) {
$portdir_overlay = [ @$overlays ];
last;
}
}
$portdir_overlay = [ @$overlays, $overlay ] unless $portdir_overlay;
$stat->portdir_overlay($portdir_overlay);
my $name = $mod->package_name;
$stat->name($name);
my $version = $mod->package_version;
lib/CPANPLUS/Dist/Gentoo.pm view on Meta::CPAN
$stat->ebuild_version(CPANPLUS::Dist::Gentoo::Maps::version_c2g($name, $version));
$stat->ebuild_name(CPANPLUS::Dist::Gentoo::Maps::name_c2g($name));
$stat->ebuild_dir(File::Spec->catdir(
$stat->overlay,
CATEGORY,
$stat->ebuild_name,
));
my $file = File::Spec->catfile(
lib/CPANPLUS/Dist/Gentoo.pm view on Meta::CPAN
my ($self, $dist_name, $dist_version) = @_;
my $name = CPANPLUS::Dist::Gentoo::Maps::name_c2g($dist_name);
my $version = CPANPLUS::Dist::Gentoo::Maps::version_c2g($dist_name, $dist_version);
my @portdirs = ($main_portdir, @{$self->status->portdir_overlay});
for my $category (qw<virtual perl-core dev-perl perl-gcpan>, CATEGORY) {
my $name = ($category eq 'virtual' ? 'perl-' : '') . $name;
for my $portdir (@portdirs) {
lib/CPANPLUS/Dist/Gentoo.pm view on Meta::CPAN
sub _run {
my ($self, $cmd, $verbose) = @_;
my $stat = $self->status;
my ($success, $errmsg, $output) = do {
local $ENV{PORTDIR_OVERLAY} = join ' ', @{$stat->portdir_overlay};
local $ENV{PORTAGE_RO_DISTDIRS} = $stat->distdir;
IPC::Cmd::run(
command => $cmd,
verbose => $verbose,
);
CPANPLUS-YACSmoke
view release on metacpan or search on metacpan
lib/CPANPLUS/YACSmoke/IniFiles.pm view on Meta::CPAN
stacked in turn and so on recursively, but this is beyond the
point). The effect, as briefly explained in L</new>, is that the
fields appearing in the composite object will be a superposition of
those coming from the ``original'' one and the lines coming from the
file, the latter taking precedence. For example, let's say that
C<$master> and C<overlay> were created like this:
my $master = Config::IniFiles->new(-file => "master.ini");
my $overlay = Config::IniFiles->new(-file => "overlay.ini",
-import => $master);
If the contents of C<master.ini> and C<overlay.ini> are respectively
; master.ini
[section1]
arg0=unchanged from master.ini
arg1=val1
lib/CPANPLUS/YACSmoke/IniFiles.pm view on Meta::CPAN
[section2]
arg2=val2
and
; overlay.ini
[section1]
arg1=overriden
Then C<< $overlay->val("section1", "arg1") >> is "overriden", while
C<< $overlay->val("section1", "arg0") >> is "unchanged from
master.ini".
This feature may be used to ship a ``global defaults'' configuration
file for a Perl application, that can be overridden piecewise by a
much shorter, per-site configuration file. Assuming UNIX-style path
lib/CPANPLUS/YACSmoke/IniFiles.pm view on Meta::CPAN
Starting with version 2.39, I<Config::IniFiles> also provides features
to keep the importing / per-site configuration file small, by only
saving those options that were modified by the running program. That
is, if one calls
$overlay->setval("section1", "arg1", "anotherval");
$overlay->newval("section3", "arg3", "val3");
$overlay->WriteConfig(-delta=>1);
C<overlay.ini> would now contain
; overlay.ini
[section1]
arg1=anotherval
[section3]
arg3=val3
This is called a I<delta file> (see L</WriteConfig>). The untouched
[section2] and arg0 do not appear, and the config file is therefore
shorter; while of course, reloading the configuration into C<$master>
and C<$overlay>, either through C<< $overlay->ReadConfig() >> or through
the same code as above (e.g. when application restarts), would yield
exactly the same result had the overlay object been saved in whole to
the file system.
The only problem with this delta technique is one cannot delete the
default values in the overlay configuration file, only change
them. This is solved by a file format extension, enabled by the
I<-negativedeltas> option to L</new>: if, say, one would delete
parameters like this,
$overlay->DeleteSection("section2");
$overlay->delval("section1", "arg0");
$overlay->WriteConfig(-delta=>1);
The I<overlay.ini> file would now read:
; overlay.ini
[section1]
; arg0 is deleted
arg1=anotherval
; [section2] is deleted
[section3]
arg3=val3
Assuming C<$overlay> was later re-read with C<< -negativedeltas => 1 >>,
the parser would interpret the deletion comments to yield the correct
result, that is, [section2] and arg0 would cease to exist in the
C<$overlay> object.
=cut
=head1 DIAGNOSTICS
CPU-Emulator-Memory
view release on metacpan or search on metacpan
lib/CPU/Emulator/Memory/Banked.pm view on Meta::CPAN
: chr(0) x $size;
} elsif($type eq 'dynamic') {
die("For dynamic banks you need to specify function_read and function_write\n")
unless(exists($params{function_read}) && exists($params{function_write}));
}
foreach my $bank (@{$self->{overlays}}) {
if(
( # does an older bank start in the middle of this one?
$bank->{address} >= $address &&
$bank->{address} < $address + $size
) || ( # does this start in the middle of an older bank?
$address >= $bank->{address} &&
$address < $bank->{address} + $bank->{size}
)
) { $self->unbank(address => $bank->{address}) }
}
push @{$self->{overlays}}, {
address => $address,
size => $size,
type => $type,
(length($contents) ? (contents => $contents) : ()),
(exists($params{file}) ? (file => $params{file}) : ()),
lib/CPU/Emulator/Memory/Banked.pm view on Meta::CPAN
=cut
sub unbank {
my($self, %params) = @_;
die("unbank: No address specified\n") unless(exists($params{address}));
$self->{overlays} = [
grep { $_->{address} != $params{address} }
@{$self->{overlays}}
];
}
=head2 peek
lib/CPU/Emulator/Memory/Banked.pm view on Meta::CPAN
=cut
sub peek {
my($self, $addr) = @_;
die("Address $addr out of range") if($addr< 0 || $addr > $self->{size} - 1);
foreach my $bank (@{$self->{overlays}}) {
if(
$bank->{address} <= $addr &&
$bank->{address} + $bank->{size} > $addr
) {
if($bank->{type} eq 'dynamic') {
lib/CPU/Emulator/Memory/Banked.pm view on Meta::CPAN
sub poke {
my($self, $addr, $value) = @_;
die("Value $value out of range") if($value < 0 || $value > 255);
die("Address $addr out of range") if($addr< 0 || $addr > $self->{size} - 1);
$value = chr($value);
foreach my $bank (@{$self->{overlays}}) {
if(
$bank->{address} <= $addr &&
$bank->{address} + $bank->{size} > $addr
) {
if($bank->{type} eq 'RAM') {
CSS-Prepare
view release on metacpan or search on metacpan
lib/CSS/Prepare/Plugin/Opacity.pm view on Meta::CPAN
The meta-property C<-cp-opacity> will be expanded to provide opacity values
that are valid for browsers that understand CSS3 (C<opacity>) and versions
of Internet Explorer, using C<*filter> and C<-ms-filter>. For example, an
input of:
#overlay { -cp-opacity: 0.5; }
will be output as:
#overlay {
-ms-filter: progid:DXImageTransform.Microsoft.Alpha(Opacity=50);
opacity: 0.5;
*filter: alpha(opacity=50);
}
CSS-Squish
view release on metacpan or search on metacpan
lib/CSS/Squish.pm view on Meta::CPAN
parse its content for @import commands. On each URI we call resolve_uri method
that convert absolute and relative URIs into file paths.
Here is example of processing:
roots: /www/overlay/, /www/shared/
$squisher->concatenate('/css/main.css');
->file_handle('/css/main.css');
->resolve_file('/css/main.css');
CXC-Number
view release on metacpan or search on metacpan
lib/CXC/Number.pm view on Meta::CPAN
=over
=item L<CXC::Number::Grid>
A representation of a grid of numbers, with the ability to join and
overlay grids. Useful for binning data.
=item L<CXC::Number::Sequence>
A namespace and module for dealing with sequences of numbers, often
constructed so that they are useful for binning data.
Cairo-GObject
view release on metacpan or search on metacpan
examples/gst-cairo-overlay.pl view on Meta::CPAN
#!perl
# This is a Perl port written by g.schlmm at googlemail dot com of the
# cairo_overlay.c example found at
# <http://cgit.freedesktop.org/gstreamer/gst-plugins-good/tree/tests/examples/cairo/cairo_overlay.c>.
use strict;
use warnings;
use Glib qw(TRUE FALSE);
use GStreamer '-init';
use Cairo::GObject;
my $loop = Glib::MainLoop->new;
# create the pipeline
my $pipeline = GStreamer::Pipeline->new ('cairo-overlay-example');
my ($source, $a1, $a2, $sink) = GStreamer::ElementFactory->make (
videotestsrc => 'source',
ffmpegcolorspace => 'a1',
ffmpegcolorspace => 'a2',
autovideosink => 'sink'
);
my $cairo_overlay = GStreamer::ElementFactory->make ('cairooverlay', 'overlay');
my ($width, $height, $valid);
$cairo_overlay->signal_connect (draw => sub {
my ($overlay, $context, $timestamp, $duration) = @_;
return if (!$valid);
my $scale = 2 * ((($timestamp / int(1e7)) % 70) + 30) / 100.0;
$context->translate ($width / 2, ($height / 2) - 30);
$context->scale ($scale, $scale);
$context->move_to (0, 0);
examples/gst-cairo-overlay.pl view on Meta::CPAN
$context->curve_to (50, -30, 0, -30, 0, 0);
$context->set_source_rgba (0.9, 0.0, 0.1, 0.7);
$context->fill;
});
$cairo_overlay->signal_connect (caps_changed => sub {
my ($overlay, $caps) = @_;
$width = 0; $height = 0;
for (@{$caps->get_structure(0)->{fields}}) {
$width = $_->[2]
if ($_->[0] eq 'width');
$height = $_->[2]
examples/gst-cairo-overlay.pl view on Meta::CPAN
last if ($height > 0 && $width > 0);
}
$valid = 1 if ($height > 0 && $width > 0);
});
$pipeline->add ($source, $a1, $cairo_overlay, $a2, $sink);
$source->link ($a1);
$a1->link ($cairo_overlay);
$cairo_overlay->link ($a2);
$a2->link ($sink);
my $bus = $pipeline->get_bus;
$bus->add_signal_watch;
$bus->signal_connect(message => sub {
CallBackery
view release on metacpan or search on metacpan
- fix UserList range
0.34.16 2020-09-05 07:53:26 +0200 Tobias Oetiker <tobi@oetiker.ch>
- make sure the blocker overlays popup windows too
0.34.15 2020-08-24 14:10:23 +0200 Tobias Oetiker <tobi@oetiker.ch>
- mkerror not merror
Carrot
view release on metacpan or search on metacpan
lib/Carrot/Individuality/Controlled/Customized_Settings/Monad.pm view on Meta::CPAN
my $line_class = '::Dot_Cfg::Line',
my $source_class = '::Source::Here::Plain',
my $dot_cdf_class = '::Dot_Cdf');
$class_names->provide_instance(
my $writable_overlay = '::Meta::Greenhouse::Writable_Overlay',
my $compilation_name = '::Meta::Greenhouse::Compilation_Name');
$distinguished_exceptions->provide(
my $unsupported_data_type = 'unsupported_data_type',
my $hash_element_missing = 'hash_element_missing');
lib/Carrot/Individuality/Controlled/Customized_Settings/Monad.pm view on Meta::CPAN
my $default_settings = $dot_directory->entry('default_settings.cdf');
$default_settings->consider_regular_content;
my $compiled_settings = $dot_directory->entry(
"default_settings-$$compilation_name.pl");
$writable_overlay->redirect_read($compiled_settings);
if ($default_settings->modification_timestamp_is_newer($compiled_settings))
{
# NOTE: manually setting @ARGUMENTS copies but doesn't alias them
@ARGUMENTS = ($loader, \$this->[ATR_VALUES]);
require($compiled_settings->value);
lib/Carrot/Individuality/Controlled/Customized_Settings/Monad.pm view on Meta::CPAN
. join("\n", map("\$_[0]->load('$_');", @$pkg_names))
. "\n\${\$_[1]} = my "
. $dumped
. "\nreturn(1);";
$writable_overlay->redirect_write($compiled_settings);
$compiled_settings->consider_regular_content;
$compiled_settings->overwrite_from($perl_code);
}
return;
}
Catalyst-Controller-POD
view release on metacpan or search on metacpan
share/ext/ext-all-debug.js view on Meta::CPAN
};
Ext.extend(Ext.SplitBar, Ext.util.Observable, {
onStartProxyDrag : function(x, y){
this.fireEvent("beforeresize", this);
this.overlay = Ext.DomHelper.append(document.body, {cls: "x-drag-overlay", html: " "}, true);
this.overlay.unselectable();
this.overlay.setSize(Ext.lib.Dom.getViewWidth(true), Ext.lib.Dom.getViewHeight(true));
this.overlay.show();
Ext.get(this.proxy).setDisplayed("block");
var size = this.adapter.getElementSize(this);
this.activeMinSize = this.getMinimumSize();
this.activeMaxSize = this.getMaximumSize();
var c1 = size - this.activeMinSize;
share/ext/ext-all-debug.js view on Meta::CPAN
onEndProxyDrag : function(e){
Ext.get(this.proxy).setDisplayed(false);
var endPoint = Ext.lib.Event.getXY(e);
if(this.overlay){
Ext.destroy(this.overlay);
delete this.overlay;
}
var newSize;
if(this.orientation == Ext.SplitBar.HORIZONTAL){
newSize = this.dragSpecs.startSize +
(this.placement == Ext.SplitBar.LEFT ?
share/ext/ext-all-debug.js view on Meta::CPAN
startSizing : function(e, handle){
this.fireEvent('beforeresize', this, e);
if(this.enabled){
if(!this.overlay){
this.overlay = this.el.createProxy({tag: 'div', cls: 'x-resizable-overlay', html: ' '}, Ext.getBody());
this.overlay.unselectable();
this.overlay.enableDisplayMode('block');
this.overlay.on({
scope: this,
mousemove: this.onMouseMove,
mouseup: this.onMouseUp
});
}
this.overlay.setStyle('cursor', handle.el.getStyle('cursor'));
this.resizing = true;
this.startBox = this.el.getBox();
this.startPoint = e.getXY();
this.offsets = [(this.startBox.x + this.startBox.width) - this.startPoint[0],
(this.startBox.y + this.startBox.height) - this.startPoint[1]];
this.overlay.setSize(Ext.lib.Dom.getViewWidth(true), Ext.lib.Dom.getViewHeight(true));
this.overlay.show();
if(this.constrainTo) {
var ct = Ext.get(this.constrainTo);
this.resizeRegion = ct.getRegion().adjust(
ct.getFrameWidth('t'),
share/ext/ext-all-debug.js view on Meta::CPAN
onMouseUp : function(e){
this.activeHandle = null;
var size = this.resizeElement();
this.resizing = false;
this.handleOut();
this.overlay.hide();
this.proxy.hide();
this.fireEvent('resize', this, size.width, size.height, e);
},
share/ext/ext-all-debug.js view on Meta::CPAN
return this.resizeChild;
},
destroy : function(removeEl){
Ext.destroy(this.dd, this.overlay, this.proxy);
this.overlay = null;
this.proxy = null;
var ps = Ext.Resizable.positions;
for(var k in ps){
if(typeof ps[k] != 'function' && this[ps[k]]){
Catalyst-Model-MultiAdaptor
view release on metacpan or search on metacpan
inc/Catalyst.pm view on Meta::CPAN
qq{Please switch your class names to ::Model::, ::View:: and ::Controller: as appropriate.\n}
) if $deprecatedcatalyst_component_names;
for my $component ( @comps ) {
# We pass ignore_loaded here so that overlay files for (e.g.)
# Model::DBI::Schema sub-classes are loaded - if it's in @comps
# we know M::P::O found a file on disk so this is safe
Catalyst::Utils::ensure_class_loaded( $component, { ignore_loaded => 1 } );
Catalyst-Plugin-ErrorCatcher-ActiveMQ-Stomp
view release on metacpan or search on metacpan
t/lib/Test/ActiveMQ.pm view on Meta::CPAN
my $full_want = $data; #$self->preprocess_data($data);
for my $msg_file (@messages) {
my $payload = $self->_load_message($msg_file);
next unless Data::Overlay::overlay($payload, $predicate);
# So the predicate matched, not see if the payload matches.
if ( Data::Overlay::overlay($payload, $full_want) ) {
$self->builder->ok(1, $comment);
return 1;
}
# overlay didn't match! give a eq_or_diff which should give a useful-ish output
$self->builder->diag("\n*\n* Please Note:\n* The diff below is not sensible.\n* The RHS column is just the overlay\n*\n");
return eq_or_diff($payload, $full_want, $comment);
}
$self->builder->ok(0, $comment);
#
my $dumper = Devel::PartialDump->new(max_depth => 5);
t/lib/Test/ActiveMQ.pm view on Meta::CPAN
use strict;
use warnings;
use Scalar::Util qw(reftype);
sub overlay {
my ($data, $overlay) = @_;
my $level = 0;
if(reftype($overlay) eq 'HASH'){
return overlay_hash($data, $overlay, $level+2);
} elsif(reftype($overlay) eq 'ARRAY'){
return overlay_array($data, $overlay, $level+2);
} else {
return ($data eq $overlay) ? 1 : 0;
}
}
sub overlay_hash {
my ($data, $overlay, $level) = @_;
for my $k (keys %$overlay){
my $overlay_item = $overlay->{$k};
my $reftype = reftype($overlay_item) || '';
if ($reftype eq 'SCALAR' && $$overlay_item eq 'Missing') {
# foo => \'Missing' says we *want* this value to not be present in
# $data
return 0 if exists $data->{$k};
} elsif ($reftype eq 'CODE') {
# foo => sub { return 1 if ($_[0]); return 0 } says we have code to decide
# if its good or bad
return &{$overlay_item}($data->{$k});
} else {
return 0 if !exists $data->{$k};
}
my $data_item = $data->{$k};
if( !ref($overlay_item) ){
return 0 if !($data_item eq $overlay_item);
next;
}
if(reftype($overlay_item) eq 'HASH'){
return 0 if !overlay_hash($data_item, $overlay_item, $level+2);
} elsif (reftype($overlay_item) eq 'ARRAY'){
return 0 if !overlay_array($data_item, $overlay_item, $level+2);
}
}
return 1;
}
sub overlay_array {
my ($data, $overlay, $level) = @_;
# Go through each item in the overlay and compare against each element of
# the data
my $all_items_found = 1;
for my $item (@$overlay){
my $overlay_item_found = 0;
INT: for my $data_entry (@$data){
if(!ref($item)){
$overlay_item_found = ($item eq $data_entry) ? 1 : 0;
} elsif(reftype($item) eq 'HASH'){
$overlay_item_found = overlay_hash($data_entry, $item, $level+2);
} elsif(reftype($item) eq 'ARRAY'){
$overlay_item_found = overlay_array($data_entry, $item, $level+2);
}
last INT if $overlay_item_found;
}
# if we currently think all items up to now are found then we
if($all_items_found){
$all_items_found = $overlay_item_found ? 1 : 0;
}
if(!$all_items_found){
last;
}
Catalyst-Plugin-InjectionHelpers
view release on metacpan or search on metacpan
lib/Catalyst/Plugin/InjectionHelpers.pm view on Meta::CPAN
},
);
MyApp->setup;
But then in youe configuration file overlay, you want to specify a class. In that case you
will need to undefine the default keys:
# File:myapp_local.pl
return +{
'Model::Foo' => {
lib/Catalyst/Plugin/InjectionHelpers.pm view on Meta::CPAN
from_code => undef, # Need to blow away the existing...
},
},
};
Its probably not ideal that the configuration overlay doesn't permit you to tag refs as 'replace'
rather than 'merge' but this is not a problem with this plugin. If it bothers you that a
configuration overlay would require to have understanding of how 'lower' configurations are setup
you should be able to avoid it by using all the same keys.
=head1 PRIOR ART
You may wish to review other similar approach on CPAN:
Catalyst-Plugin-PickComponents
view release on metacpan or search on metacpan
lib/Catalyst/Plugin/PickComponents.pm view on Meta::CPAN
my @comps = sort { length $a <=> length $b } @plugins;
my %comps = map { $_ => 1 } @comps;
for my $component ( @comps ) {
# We pass ignore_loaded here so that overlay files for (e.g.)
# Model::DBI::Schema sub-classes are loaded - if it's in @comps
# we know M::P::O found a file on disk so this is safe
Catalyst::Utils::ensure_class_loaded( $component, { ignore_loaded => 1 } );
Catalyst-Plugin-ServeFile
view release on metacpan or search on metacpan
lib/Catalyst/Plugin/ServeFile.pm view on Meta::CPAN
This method will return true (the $fh actually) if it is successful in locating and serving
a file. False otherwise. It doesn't automatically set any 'not found' response, you need to
handle that yourself.
If the last argument is a HashRef, we will use it as an overlay on any configuration options.
See the L<\SYNOPSIS> for a longer example.
=head1 CONFIGURATION
( run in 1.059 second using v1.01-cache-2.11-cpan-49f99fa48dc )