Result:
found more than 473 distributions - search limited to the first 2001 files matching your query
( run in 1.851 )
CORBA-MICO
view release on metacpan or search on metacpan
ccc/Hypertext.pm view on Meta::CPAN
my $scrolled = new Gtk2::ScrolledWindow(undef,undef); # scrolled for main text
$scrolled->set_policy( 'automatic', 'automatic' );
my $text = Gtk2::TextView->new;
$text->set_wrap_mode ('none');
$text->set_editable(0);
$text->set_cursor_visible(0);
$scrolled->add($text);
my $retval = new Gtk2::VPaned;
$retval->pack1($scrolled, 1, 0);
$retval->set_size_request(600, 400);
$retval->show_all();
ccc/Hypertext.pm view on Meta::CPAN
PREPOST => $prepost_cb,
SRCHDATA => {},
CURSOR_HAND => undef };
#$htext->show_all();
$prepost_cb->($udata, 1);
CORBA::MICO::Misc::cursor_watch($htext, 0);
$text->get_window('text')->set_cursor(Gtk2::Gdk::Cursor->new('watch'));
$htext->queue_draw();
return if CORBA::MICO::Misc::process_pending();
my $desc = $prepare_cb->($name, $udata);
my $iter = $buffer->get_iter_at_offset(0);
if( defined($desc) ) {
ccc/Hypertext.pm view on Meta::CPAN
}
}
$text->{CBDATA} = $cbdata;
$text->signal_connect(event_after => \&event_after);
$text->signal_connect(backspace => \&event_backspace);
CORBA::MICO::Misc::cursor_restore_to_default($htext, 0);
set_curs($text, $cbdata);
$prepost_cb->($udata, 0);
$htext->queue_draw();
}
ccc/Hypertext.pm view on Meta::CPAN
}
}
$stags = [];
my $pat = $se->get_text();
if( $pat ) {
$text->get_window('text')->set_cursor(Gtk2::Gdk::Cursor->new('watch'));
return if CORBA::MICO::Misc::process_pending();
my $itext = $buffer->get_text($buffer->get_bounds(), 1);
my @sres;
if( $is_regexp ) {
eval { @sres = split(/((?mi)$pat)/, $itext) };
}
else {
eval { @sres = split(/((?i)\Q$pat\E)/, $itext) };
}
$text->get_window('text')->set_cursor(Gtk2::Gdk::Cursor->new('xterm'));
return if CORBA::MICO::Misc::process_pending();
if( @sres ) {
# found
my $eiter;
my $rect = $text->get_visible_rect();
ccc/Hypertext.pm view on Meta::CPAN
}
return 0;
}
#--------------------------------------------------------------------
# Motion notify: set appropriate cursor type
sub set_curs {
my ($w, $cbdata) = @_;
my (undef, $x, $y, undef) = $w->window->get_pointer();
($x, $y) = $w->window_to_buffer_coords('widget', $x, $y);
my $iter = $w->get_iter_at_location ($x, $y);
return 0 unless $iter;
my $curshand = defined(get_hlink($iter));
if( !defined($cbdata->{CURS_HAND}) || $curshand != $cbdata->{CURS_HAND} ) {
$w->get_window('text')->set_cursor
(Gtk2::Gdk::Cursor->new($curshand ? 'hand2' : 'xterm'));
$cbdata->{CURS_HAND} = $curshand;
}
return 0;
}
CPAN-Changes
view release on metacpan or search on metacpan
corpus/dists/DBIx-Class.changes view on Meta::CPAN
correctly (via aggregated grouping)
- No longer order the insides of a complex prefetch subquery,
unless required to satisfy a limit
- Stop erroneously considering order_by criteria from a join under
distinct => 1 (the distinct should apply to the main source only)
- Massively optimize codepath around ->cursor(), over 10x speedup
on some iterating workloads.
- Support standalone \[ $sql, $value ] in literal SQL with bind
specifications: \[ '? + ?', 42, 69 ] is now equivalent to
\[ '? + ?', [ {} => 42 ], [ {} => 69 ] ]
- Changing the result_class of a ResultSet in progress is now
corpus/dists/DBIx-Class.changes view on Meta::CPAN
- Fix _dbi_attrs_for_bind() being called befor DBI has been loaded
(regression in 0.08210)
- Fix update/delete operations on resultsets *joining* the updated
table failing on MySQL. Resolves oversights in the fixes for
RT#81378 and RT#81897
- Fix open cursors silently resetting when inherited across a fork
or a thread
- Properly support "MySQL-style" left-side group_by with prefetch
- Fix $grouped_rs->get_column($col)->func($func) producing incorrect
SQL (RT#81127)
- Stop Sybase ASE storage from generating invalid SQL in subselects
when a limit without offset is encountered
- Even more robust behavior of GenericSubQuery limit dialect
- Make sure deployment_statements() and cursor_class() are called on
a resolved storage subclass
* Misc
- Fix tests failing due to unspecified resultset retrieval order
(test suite now will pass with newest SQLite libs)
corpus/dists/DBIx-Class.changes view on Meta::CPAN
- Explicitly disable DBD::ODBC batch operations (as of DBD::ODBC 1.35)
for the following drivers too buggy to handle the optimized path:
- FreeTDS ODBC driver (when used with MSSQL)
- The Firebird ODBC driver
- The MSAccess ODBC driver
- Explicitly disable DBD::ODBC dynamic_cursors when using freetds 0.83
or later - they made enough ODBC incompatible changes making it
impossible to support sanely
- Explicitly disable SCOPE_IDENTITY queries and statement caching for
MSSQL on DBD::Sybase compiled against freetds 0.83 or later - way too
buggy
corpus/dists/DBIx-Class.changes view on Meta::CPAN
during upgrades at the turn of the second
- Fix incorrect bind of integers >= 2^^32 (bigint columns) to
SQL_INTEGER, resulting in silent conversion to '-1'
- Fix pre 5.10 failures of t/55namespaces_cleaned.t due to buggy
require() (RT#68814)
- Oracle autoinc inserts no longer leave open cursors behind
0.08192 2011-05-10 04:20 (UTC)
* Fixes
- Fix serious regression on SQLite, corrupting data when an alphanum
value does not correspond to a stale numeric datatype in colinfo
corpus/dists/DBIx-Class.changes view on Meta::CPAN
when deploying a schema via sql file
- Fix reverse_relationship_info on prototypical result sources
(sources not yet registered with a schema)
- Warn and skip relationships missing from a partial schema during
dbic cascade_delete
- Automatically require the requested cursor class before use
(RT#64795)
- Work around a Firebird ODBC driver bug exposed by DBD::ODBC 1.29
- Fix (to the extent allowed by the driver) transaction support in
DBD::Sybase compiled against FreeTDS
- Fix exiting via next warnings in ResultSource::sequence()
corpus/dists/DBIx-Class.changes view on Meta::CPAN
- Fix detection of Oracle sequences for tables without an explicitly
specified schema (RT#63493)
- Major overhaul of Storage::Oracle to handle enabled quoting
- Fixed incorrect composition of select/as/columns attributes during
chaining (RT#61235)
- Proper serialization of resultsets with open cursors
- Refactor handling of RDBMS-side values during insert() - fix
regression of inserts into a Postgres / ::Replicated combination
- Missing dependency check in t/60core.t (RT#62635)
- Fix regressions in IC::DT registration logic
- Fix regression in select-associated bind value handling (RT#61025)
corpus/dists/DBIx-Class.changes view on Meta::CPAN
- Mangle the DBIx/Class.pm POD to be more clear about
copyright and license
- Put back PG's multiple autoinc per table support, accidentally
dropped during the serial-autodetection rewrite
- Make sure ResultSetColumn does not depend on the (undefined)
return value of ->cursor->reset()
- Add single() to ResultSetColumn (same semantics as ResultSet)
- Make sure to turn off IDENTITY_INSERT after insert() on MSSQL
tables that needed it
- More informative exception on failing _resolve_relationship
- Allow undef/NULL as the sole grouping value in Ordered
corpus/dists/DBIx-Class.changes view on Meta::CPAN
now read from the master storage by default)
- Refactor of MSSQL storage drivers, with some new features:
- Support for placeholders for MSSQL via DBD::Sybase with proper
autodetection
- 'uniqueidentifier' support with auto newid()
- Dynamic cursor support and other MARS options for ODBC
- savepoints with auto_savepoint => 1
- Support for MSSQL 'money' type
- Support for 'smalldatetime' type used in MSSQL and Sybase for
InflateColumn::DateTime
- Support for Postgres 'timestamp without timezone' type in
corpus/dists/DBIx-Class.changes view on Meta::CPAN
- Fix find_or_new/create to stop returning random rows when
default value insert is requested (RT#28875)
- Make IC::DT extra warning state the column name too
- It is now possible to transparrently search() on columns
requiring DBI bind (i.e. PostgreSQL BLOB)
- as_query is now a Storage::DBI method, so custom cursors can
be seamlessly used
- Fix search_related regression introduced in 0.08103
0.08103 2009-05-26 19:50:00 (UTC)
- Multiple $resultset -> count/update/delete fixes. Now any
corpus/dists/DBIx-Class.changes view on Meta::CPAN
(original fix from diz)
0.08004 2007-08-06 19:00:00
- fix storage connect code to not trigger bug via auto-viv
(test from aherzog)
- fixup cursor_class to be an 'inherited' attr for per-package defaults
- add default_resultset_attributes entry to Schema
- optimisation in DBI::Cursor to check software_limit before falling
back to base Cursor->all
- fix bug with create_multi not inserting non-storage objects
(test and fix from davinchi)
CPAN-Meta-YAML
view release on metacpan or search on metacpan
lib/CPAN/Meta/YAML.pm view on Meta::CPAN
# Iterate over the documents
my $indent = 0;
my @lines = ();
eval {
foreach my $cursor ( @$self ) {
push @lines, '---';
# An empty document
if ( ! defined $cursor ) {
# Do nothing
# A scalar document
} elsif ( ! ref $cursor ) {
$lines[-1] .= ' ' . $self->_dump_scalar( $cursor );
# A list at the root
} elsif ( ref $cursor eq 'ARRAY' ) {
unless ( @$cursor ) {
$lines[-1] .= ' []';
next;
}
push @lines, $self->_dump_array( $cursor, $indent, {} );
# A hash at the root
} elsif ( ref $cursor eq 'HASH' ) {
unless ( %$cursor ) {
$lines[-1] .= ' {}';
next;
}
push @lines, $self->_dump_hash( $cursor, $indent, {} );
} else {
die \("Cannot serialize " . ref($cursor));
}
}
};
if ( ref $@ eq 'SCALAR' ) {
$self->_error(${$@});
CPAN-Mini-Webserver
view release on metacpan or search on metacpan
lib/CPAN/Mini/Webserver/Templates/CSS.pm view on Meta::CPAN
.number {color:#FF0000;}
.single, .double, .substitute, .words, .match, .regexp, .heredoc_content {color:#888888;}
.substitute, .match, .regexp { background:#FFFFDD; }
/* buttons */
a.button, button {display:block;float:left;margin:0.7em 0.5em 0.7em 0;padding:5px 10px 5px 7px;border:1px solid #dedede;border-top:1px solid #eee;border-left:1px solid #eee;background-color:#f5f5f5;font-family:"Lucida Grande", Tahoma, Arial, Verdana,...
button {width:auto;overflow:visible;padding:4px 10px 3px 7px;}
button[type] {padding:4px 10px 4px 7px;line-height:17px;}
*:first-child+html button[type] {padding:4px 10px 3px 7px;}
button img, a.button img {margin:0 3px -3px 0 !important;padding:0;border:none;width:16px;height:16px;float:none;}
button:hover, a.button:hover {background-color:#dff4ff;border:1px solid #c2e1ef;color:#336699;}
CPAN-Nearest
view release on metacpan or search on metacpan
lib/CPAN/Nearest.pod view on Meta::CPAN
use the CPAN packages list. It was inspired by the helpful "git"
version control system, which provides suggestions for spelling
mistakes. CPAN::Nearest was written to be fast enough for practical
use by writing it mostly in C with an XS binding to Perl.
It was the precursor of L<Text::Fuzzy> by the same author (Ben
Bullock). In version 0.13, all of the search functionality of
CPAN::Nearest was moved to Text::Fuzzy and the XS parts of the module
were removed, and the package-list reading part rewritten in Perl. The
standalone C program was also removed from the distribution in version
0.13, and its documentation was deleted in version 0.14.
CPAN-Plugin-Sysdeps
view release on metacpan or search on metacpan
lib/CPAN/Plugin/Sysdeps/Mapping.pm view on Meta::CPAN
[cpanmod => 'Alien::raylib',
[os_freebsd,
[package => [qw(alsa-lib)]]], # XXX maybe more?
[like_debian,
[package => [qw(libasound2-dev libxcursor-dev libxinerama-dev mesa-common-dev libx11-dev libxrandr-dev libxi-dev libgl1-mesa-dev libglu1-mesa-dev)]]],
[like_fedora,
[package => 'libXrandr-devel']], # XXX maybe more?
],
[cpanmod => 'Alien::RRDtool',
lib/CPAN/Plugin/Sysdeps/Mapping.pm view on Meta::CPAN
[cpanmod => 'Prima',
# XXX what about freebsd?
[like_debian,
[linuxdistrocodename => [qw(squeeze wheezy jessie precise xenial)],
[package => [qw(libx11-dev libxcursor-dev libxpm-dev libgif-dev libpng12-dev libjpeg-dev), 'pkg-config | pkgconf']]], # XXX maybe also add libtiff...
[package => [qw(libx11-dev libxcursor-dev libxpm-dev libgif-dev libpng-dev libjpeg-dev), 'pkg-config | pkgconf']], # XXX maybe also add libtiff...
],
[like_fedora,
[package => [qw(libXcursor-devel)]]], # XXX probably incomplete
],
[cpanmod => 'Primesieve',
[os_freebsd,
[osvers => {'>=', 11},
CPAN-Testers-WWW-Admin
view release on metacpan or search on metacpan
vhost/html/css/layout2_setup.css view on Meta::CPAN
.header-breadcrumbs .searchform {float:right; width:285px; padding:0 17px 0px 0px !important /*Non-IE6*/; padding:0 12px 0px 0px /*IE6*/;}
.header-breadcrumbs .searchform form fieldset {float:right; border:none;}
.header-breadcrumbs .searchform input.field {width:10.0em; padding:0.2em 0 0.2em 0; border:1px solid rgb(200,200,200); font-family:verdana,arial,sans-serif; font-size:120%; }
.header-breadcrumbs .searchform input.button {width:3.0em; padding:1px !important /*Non-IE6*/; padding:0 /*IE6*/; background:rgb(230,230,230); border:solid 1px rgb(150,150,150); text-align:center; font-family:verdana,arial,sans-serif; color:rgb(150,1...
.header-breadcrumbs .searchform input.button:hover {cursor:pointer; border:solid 1px rgb(80,80,80); background:rgb(220,220,220); color:rgb(80,80,80);}
/* --- For alternative headers END PASTE here --- */
/******************/
/* MAIN SECTION */
CPAN-Testers-WWW-Blog
view release on metacpan or search on metacpan
vhost/html/css/layout-min.css view on Meta::CPAN
*{padding:0;margin:0}body{font-size:9pt;background-color:#fff;font-family:verdana,arial,sans-serif}.page-container{width:900px;margin:0 auto;margin-top:10px;margin-bottom:10px;border:solid 1px #969696;font-size:.9em}.main{clear:both;width:900px;paddi...
.nav3-grid{width:199px;border-bottom:solid 1px #c8c8c8}.nav3-grid dt a,.nav3-grid dt a:visited{display:block;min-height:2em;height:auto!important;height:2em;line-height:2em;padding:0 10px 0 20px;border-top:solid 1px #c8c8c8;text-decoration:none;color...
#iheart ul { list-style: none outside none; display: list-item; background-image: none; }
#iheart ul li { list-style: none outside none; display: list-item; background-image: none; }
#iheart-banner { width: 640px; margin-bottom: 10px; border: 1px solid #ccc; cursor: pointer; }
div.sponsor {
display: inline-block;
background-color: #fff;
border: solid 0px #ccc;
vhost/html/css/layout-min.css view on Meta::CPAN
color: #999;
font-size: 8pt;
}
img.logo {
cursor: pointer;
}
div.info {
display: none;
position: relative;
CPAN-Testers-WWW-Development
view release on metacpan or search on metacpan
templates/css/layout2_setup.css view on Meta::CPAN
.header-breadcrumbs .searchform {float:right; width:285px; padding:0 17px 0px 0px !important /*Non-IE6*/; padding:0 12px 0px 0px /*IE6*/;}
.header-breadcrumbs .searchform form fieldset {float:right; border:none;}
.header-breadcrumbs .searchform input.field {width:10.0em; padding:0.2em 0 0.2em 0; border:1px solid rgb(200,200,200); font-family:verdana,arial,sans-serif; font-size:120%; }
.header-breadcrumbs .searchform input.button {width:3.0em; padding:1px !important /*Non-IE6*/; padding:0 /*IE6*/; background:rgb(230,230,230); border:solid 1px rgb(150,150,150); text-align:center; font-family:verdana,arial,sans-serif; color:rgb(150,1...
.header-breadcrumbs .searchform input.button:hover {cursor:pointer; border:solid 1px rgb(80,80,80); background:rgb(220,220,220); color:rgb(80,80,80);}
/* --- For alternative headers END PASTE here --- */
/******************/
/* MAIN SECTION */
CPAN-Testers-WWW-Preferences
view release on metacpan or search on metacpan
vhost/html/css/layout2_setup.css view on Meta::CPAN
.header-breadcrumbs .searchform {float:right; width:285px; padding:0 17px 0px 0px !important /*Non-IE6*/; padding:0 12px 0px 0px /*IE6*/;}
.header-breadcrumbs .searchform form fieldset {float:right; border:none;}
.header-breadcrumbs .searchform input.field {width:10.0em; padding:0.2em 0 0.2em 0; border:1px solid rgb(200,200,200); font-family:verdana,arial,sans-serif; font-size:120%; }
.header-breadcrumbs .searchform input.button {width:3.0em; padding:1px !important /*Non-IE6*/; padding:0 /*IE6*/; background:rgb(230,230,230); border:solid 1px rgb(150,150,150); text-align:center; font-family:verdana,arial,sans-serif; color:rgb(150,1...
.header-breadcrumbs .searchform input.button:hover {cursor:pointer; border:solid 1px rgb(80,80,80); background:rgb(220,220,220); color:rgb(80,80,80);}
/* --- For alternative headers END PASTE here --- */
/******************/
/* MAIN SECTION */
CPAN-Testers-WWW-Reports
view release on metacpan or search on metacpan
vhost/html/css/layout2_setup.css view on Meta::CPAN
.header-breadcrumbs .searchform {float:right; width:285px; padding:0 17px 0px 0px !important /*Non-IE6*/; padding:0 12px 0px 0px /*IE6*/;}
.header-breadcrumbs .searchform form fieldset {float:right; border:none;}
.header-breadcrumbs .searchform input.field {width:10.0em; padding:0.2em 0 0.2em 0; border:1px solid rgb(200,200,200); font-family:verdana,arial,sans-serif; font-size:120%; }
.header-breadcrumbs .searchform input.button {width:3.0em; padding:1px !important /*Non-IE6*/; padding:0 /*IE6*/; background:rgb(230,230,230); border:solid 1px rgb(150,150,150); text-align:center; font-family:verdana,arial,sans-serif; color:rgb(150,1...
.header-breadcrumbs .searchform input.button:hover {cursor:pointer; border:solid 1px rgb(80,80,80); background:rgb(220,220,220); color:rgb(80,80,80);}
/* --- For alternative headers END PASTE here --- */
/******************/
/* MAIN SECTION */
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":{"...
CPAN-Testers-WWW-Wiki
view release on metacpan or search on metacpan
vhost/html/css/layout2-setup.css view on Meta::CPAN
.header-breadcrumbs .searchform {float:right; width:285px; padding:0 17px 0px 0px !important /*Non-IE6*/; padding:0 12px 0px 0px /*IE6*/;}
.header-breadcrumbs .searchform form fieldset {float:right; border:none;}
.header-breadcrumbs .searchform input.field {width:10.0em; padding:0.2em 0 0.2em 0; border:1px solid rgb(200,200,200); font-family:verdana,arial,sans-serif; font-size:120%; }
.header-breadcrumbs .searchform input.button {width:3.0em; padding:1px !important /*Non-IE6*/; padding:0 /*IE6*/; background:rgb(230,230,230); border:solid 1px rgb(150,150,150); text-align:center; font-family:verdana,arial,sans-serif; color:rgb(150,1...
.header-breadcrumbs .searchform input.button:hover {cursor:pointer; border:solid 1px rgb(80,80,80); background:rgb(220,220,220); color:rgb(80,80,80);}
/* --- For alternative headers END PASTE here --- */
/******************/
/* MAIN SECTION */
CPAN-cpanminus-reporter-RetainReports
view release on metacpan or search on metacpan
t/data/cpanriver.01.build.log view on Meta::CPAN
t/prefetch/empty_cache.t ............................ ok
t/prefetch/false_colvalues.t ........................ ok
t/prefetch/grouped.t ................................ ok
t/prefetch/incomplete.t ............................. ok
t/prefetch/join_type.t .............................. ok
t/prefetch/lazy_cursor.t ............................ ok
t/prefetch/manual.t ................................. ok
t/prefetch/multiple_hasmany.t ....................... ok
t/prefetch/multiple_hasmany_torture.t ............... ok
t/prefetch/o2m_o2m_order_by_with_limit.t ............ ok
t/prefetch/one_to_many_to_one.t ..................... ok
t/data/cpanriver.01.build.log view on Meta::CPAN
t/sqlmaker/order_by_func.t .......................... ok
t/sqlmaker/pg.t ..................................... ok
t/sqlmaker/quotes.t ................................. ok
t/sqlmaker/sqlite.t ................................. ok
t/storage/base.t .................................... ok
t/storage/cursor.t .................................. ok
t/storage/dbh_do.t .................................. ok
t/storage/dbi_coderef.t ............................. ok
t/storage/dbi_env.t ................................. ok
t/storage/dbic_pretty.t ............................. skipped: Test needs JSON::Any >= 1.23
t/storage/debug.t ................................... ok
CPAN
view release on metacpan or search on metacpan
2007-04-29 Andreas J. Koenig <andreas.koenig.7os6VVqR@franz.ak.mind.de>
* Interesting ticket: https://rt.cpan.org/Ticket/Display.html?id=26727
about redrawing the current line after something has moved the cursor.
2007-04-28 Andreas J. Koenig <andreas.koenig.7os6VVqR@franz.ak.mind.de>
* Jifty again. Same recipe as last time, still no clue.
CPANPLUS-Shell-Curses
view release on metacpan or search on metacpan
lib/CPANPLUS/Shell/Curses.pm view on Meta::CPAN
$mainw->getobj('configw')->loose_focus();
$mainw->delete('configw');
$mainw->getobj('listw')->getobj('list')->focus();
###
### Somewhere here something odd happens, the cursor
### appears in the list. No workaround till now,
### maybe a bug in Curses::UI
}
sub _abort_conf{
CPANPLUS-Shell-Tk
view release on metacpan or search on metacpan
lib/CPANPLUS/Shell/Tk.pm view on Meta::CPAN
my $button3_menu = $self->_create_button3_menu($update);
$update->bindRows('<ButtonPress-3>',
[ sub {
my @sel = $update->curselection;
@{$self->{MODS}} = map {$update->columnGet(0)->get($_, $_)} @sel;
$button3_menu->Popup(-popover => 'cursor', -popanchor => 'nw');
},
]
);
$update->insert(0, map { [$_, 1] } sort keys %{$self->{NOT_UPTODATE}});
lib/CPANPLUS/Shell/Tk.pm view on Meta::CPAN
my $button3_menu = $self->_create_button3_menu($installed);
$installed->bindRows('<ButtonPress-3>',
[ sub {
my @sel = $installed->curselection;
@{$self->{MODS}} = map {$installed->columnGet(0)->get($_, $_)} @sel;
$button3_menu->Popup(-popover => 'cursor', -popanchor => 'nw');
},
]
);
$installed->insert(0, map { [$_, 1] } sort keys %{$self->{INSTALLED}});
lib/CPANPLUS/Shell/Tk.pm view on Meta::CPAN
my $button3_menu = $self->_create_button3_menu($search);
$search->bindRows('<ButtonPress-3>',
[ sub {
my @sel = $search->curselection;
@{$self->{MODS}} = map {$search->columnGet(0)->get($_, $_)} @sel;
$button3_menu->Popup(-popover => 'cursor', -popanchor => 'nw');
},
]
);
$search->pack(-side => 'bottom', -fill => 'both', -expand => 1);
}
CPANPLUS
view release on metacpan or search on metacpan
inc/bundle/CPAN/Meta/YAML.pm view on Meta::CPAN
# Iterate over the documents
my $indent = 0;
my @lines = ();
eval {
foreach my $cursor ( @$self ) {
push @lines, '---';
# An empty document
if ( ! defined $cursor ) {
# Do nothing
# A scalar document
} elsif ( ! ref $cursor ) {
$lines[-1] .= ' ' . $self->_dump_scalar( $cursor );
# A list at the root
} elsif ( ref $cursor eq 'ARRAY' ) {
unless ( @$cursor ) {
$lines[-1] .= ' []';
next;
}
push @lines, $self->_dump_array( $cursor, $indent, {} );
# A hash at the root
} elsif ( ref $cursor eq 'HASH' ) {
unless ( %$cursor ) {
$lines[-1] .= ' {}';
next;
}
push @lines, $self->_dump_hash( $cursor, $indent, {} );
} else {
die \("Cannot serialize " . ref($cursor));
}
}
};
if ( ref $@ eq 'SCALAR' ) {
$self->_error(${$@});
CPP-Boost-Mini
view release on metacpan or search on metacpan
include/boost/container/vector.hpp view on Meta::CPAN
BOOST_CONTAINER_FORCEINLINE friend bool operator>= (const vec_iterator& l, const vec_iterator& r) BOOST_NOEXCEPT_OR_NOTHROW
{ return l.m_ptr >= r.m_ptr; }
};
template<class BiDirPosConstIt, class BiDirValueIt>
struct vector_insert_ordered_cursor
{
typedef typename iterator_traits<BiDirPosConstIt>::value_type size_type;
typedef typename iterator_traits<BiDirValueIt>::reference reference;
BOOST_CONTAINER_FORCEINLINE vector_insert_ordered_cursor(BiDirPosConstIt posit, BiDirValueIt valueit)
: last_position_it(posit), last_value_it(valueit)
{}
void operator --()
{
include/boost/container/vector.hpp view on Meta::CPAN
//Absolutely experimental. This function might change, disappear or simply crash!
template<class BiDirPosConstIt, class BiDirValueIt>
BOOST_CONTAINER_FORCEINLINE void insert_ordered_at(const size_type element_count, BiDirPosConstIt last_position_it, BiDirValueIt last_value_it)
{
typedef vector_insert_ordered_cursor<BiDirPosConstIt, BiDirValueIt> inserter_t;
return this->priv_insert_ordered_at(element_count, inserter_t(last_position_it, last_value_it));
}
template<class InputIt>
BOOST_CONTAINER_FORCEINLINE void merge(InputIt first, InputIt last)
CPU-Z80-Disassembler
view release on metacpan or search on metacpan
t/data/zx48.asm view on Meta::CPAN
;; ED-CONTR
L0F6C: CALL L15D4 ; routine WAIT-KEY for control.
; input address will be key-next.
PUSH DE ; saved code/parameters
LD HL,($5C5B) ; fetch address of keyboard cursor from K_CUR
RES 0,(IY+$07) ; set MODE to 'L'
CALL L1655 ; routine MAKE-ROOM makes 2/3 spaces at cursor
POP BC ; restore code/parameters
INC HL ; address first location
LD (HL),B ; place code (ink etc.)
INC HL ; address next
t/data/zx48.asm view on Meta::CPAN
; it is also the OUTPUT service routine for system channel 'R'.
;; ADD-CHAR
L0F81: RES 0,(IY+$07) ; set MODE to 'L'
X0F85: LD HL,($5C5B) ; fetch address of keyboard cursor from K_CUR
CALL L1652 ; routine ONE-SPACE creates one space.
; either a continuation of above or from ED-CONTR with ED-LOOP on stack.
t/data/zx48.asm view on Meta::CPAN
LD HL,L0FA0 - 7 ; base address of editing keys table. $0F99
ADD HL,DE ; add E
LD E,(HL) ; fetch offset to E
ADD HL,DE ; add offset for address of handling routine.
PUSH HL ; push the address on machine stack.
LD HL,($5C5B) ; load address of cursor from K_CUR.
RET ; Make an indirect jump forward to routine.
; ------------------
; Editing keys table
; ------------------
t/data/zx48.asm view on Meta::CPAN
OR E ; contain zero so test for this.
JP Z,L1097 ; jump to CLEAR-SP if so.
; Note. at this point we have a validated line number, not just an
; approximation and it would be best to update E_PPC with the true
; cursor line value which would enable the line cursor to be suppressed
; in all situations - see shortly.
PUSH HL ; save address of line.
INC HL ; address low byte of length.
LD C,(HL) ; transfer to C
t/data/zx48.asm view on Meta::CPAN
LD A,$FF ; select system channel 'R'
CALL L1601 ; routine CHAN-OPEN opens it
POP HL ; drop line address
DEC HL ; make it point to first byte of line num.
DEC (IY+$0F) ; decrease E_PPC_lo to suppress line cursor.
; Note. ineffective when E_PPC is one
; greater than last line of program perhaps
; as a result of a delete.
; credit. Paul Harrison 1982.
t/data/zx48.asm view on Meta::CPAN
; -------------------
; Cursor down editing
; -------------------
; The BASIC lines are displayed at the top of the screen and the user
; wishes to move the cursor down one line in edit mode.
; With INPUT LINE, this key must be used instead of entering STOP.
;; ED-DOWN
L0FF3: BIT 5,(IY+$37) ; test FLAGX - Input Mode ?
JR NZ,L1001 ; skip to ED-STOP if so
t/data/zx48.asm view on Meta::CPAN
JR L1024 ; forward to ED-ENTER to produce error.
; -------------------
; Cursor left editing
; -------------------
; This acts on the cursor in the lower section of the screen in both
; editing and input mode.
;; ED-LEFT
L1007: CALL L1031 ; routine ED-EDGE moves left if possible
JR L1011 ; forward to ED-CUR to update K-CUR
; and return to ED-LOOP.
; --------------------
; Cursor right editing
; --------------------
; This acts on the cursor in the lower screen in both editing and input
; mode and moves it to the right.
;; ED-RIGHT
L100C: LD A,(HL) ; fetch addressed character.
CP $0D ; is it carriage return ?
t/data/zx48.asm view on Meta::CPAN
; --------------
; DELETE editing
; --------------
; This acts on the lower screen and deletes the character to left of
; cursor. If control characters are present these are deleted first
; leaving the naked parameter (0-7) which appears as a '?' except in the
; case of chr$ 6 which is the comma control character. It is not mandatory
; to delete these second characters.
;; ED-DELETE
L1015: CALL L1031 ; routine ED-EDGE moves cursor to left.
LD BC,$0001 ; of character to be deleted.
JP L19E8 ; to RECLAIM-2 reclaim the character.
; ------------------------------------------
; Ignore next 2 codes from key-input routine
t/data/zx48.asm view on Meta::CPAN
LD SP,HL ; else put error routine on stack
RET ; and make an indirect jump to it.
; -----------------------------
; Move cursor left when editing
; -----------------------------
; This routine moves the cursor left. The complication is that it must
; not position the cursor between control codes and their parameters.
; It is further complicated in that it deals with TAB and AT characters
; which are never present from the keyboard.
; The method is to advance from the beginning of the line each time,
; jumping one, two, or three characters as necessary saving the original
; position at each jump in DE. Once it arrives at the cursor then the next
; legitimate leftmost position is in DE.
;; ED-EDGE
L1031: SCF ; carry flag must be set to call the nested
CALL L1195 ; subroutine SET-DE.
t/data/zx48.asm view on Meta::CPAN
POP BC ; drop return address
RET C ; return to ED-LOOP if already at left
; of line.
PUSH BC ; resave return address - ED-LOOP.
LD B,H ; transfer HL - cursor address
LD C,L ; to BC register pair.
; at this point DE addresses start of line.
;; ED-EDGE-1
L103E: LD H,D ; transfer DE - leftmost pointer
t/data/zx48.asm view on Meta::CPAN
INC HL ; increment a third time for 'at'/'tab'
;; ED-EDGE-2
L1051: AND A ; prepare for true subtraction
SBC HL,BC ; subtract cursor address from pointer
ADD HL,BC ; and add back
; Note when HL matches the cursor position BC,
; there is no carry and the previous
; position is in DE.
EX DE,HL ; transfer result to DE if looping again.
; transfer DE to HL to be used as K-CUR
; if exiting loop.
JR C,L103E ; back to ED-EDGE-1 if cursor not matched.
RET ; return.
; -----------------
; Cursor up editing
t/data/zx48.asm view on Meta::CPAN
; --------------------
; Lower screen copying
; --------------------
; This subroutine is called whenever the line in the editing area or
; input workspace is required to be printed to the lower screen.
; It is by calling this routine after any change that the cursor, for
; instance, appears to move to the left.
; Remember the edit line will contain characters and tokens
; e.g. "1000 LET a=1" is 8 characters.
;; ED-COPY
t/data/zx48.asm view on Meta::CPAN
CALL L187D ; routine OUT-LINE2 outputs entire line up to
; carriage return including initial
; characterized line number when present.
EX DE,HL ; transfer new address to DE
CALL L18E1 ; routine OUT-CURS considers a
; terminating cursor.
LD HL,($5C8A) ; fetch updated SPOSNL
EX (SP),HL ; exchange with ECHO_E on stack
EX DE,HL ; transfer ECHO_E to DE
CALL L0D4D ; routine TEMPS to re-set attributes
t/data/zx48.asm view on Meta::CPAN
; displaying an error.
;; SET-MIN
L16B0: LD HL,($5C59) ; fetch E_LINE
LD (HL),$0D ; insert carriage return
LD ($5C5B),HL ; make K_CUR keyboard cursor point there.
INC HL ; next location
LD (HL),$80 ; holds end-marker $80
INC HL ; next location becomes
LD ($5C61),HL ; start of WORKSP
t/data/zx48.asm view on Meta::CPAN
;; OUT-LINE
L1855: LD BC,($5C49) ; fetch E_PPC the current line which may be
; unchecked and not exist.
CALL L1980 ; routine CP-LINES finds match or line after.
LD D,$3E ; prepare cursor '>' in D.
JR Z,L1865 ; to OUT-LINE1 if matched or line after.
LD DE,$0000 ; put zero in D, to suppress line cursor.
RL E ; pick up carry in E if line before current
; leave E zero if same or after.
;; OUT-LINE1
L1865: LD (IY+$2D),E ; save flag in BREG which is spare.
t/data/zx48.asm view on Meta::CPAN
; with leading space.
INC HL ; skip low number byte.
INC HL ; and the two
INC HL ; length bytes.
RES 0,(IY+$01) ; update FLAGS - signal leading space required.
LD A,D ; fetch the cursor.
AND A ; test for zero.
JR Z,L1881 ; to OUT-LINE3 if zero.
RST 10H ; PRINT-A prints '>' the current line cursor.
; this entry point is called from ED-COPY
;; OUT-LINE2
L187D: SET 0,(IY+$01) ; update FLAGS - suppress leading space.
t/data/zx48.asm view on Meta::CPAN
LD A,$3F ; load A with '?' the error marker.
CALL L18C1 ; routine OUT-FLASH to print flashing marker.
;; OUT-LINE5
L18A1: CALL L18E1 ; routine OUT-CURS will print the cursor if
; this is the right position.
EX DE,HL ; restore address pointer to HL.
LD A,(HL) ; fetch the addressed character.
CALL L18B6 ; routine NUMBER skips a hidden floating
; point number if present.
t/data/zx48.asm view on Meta::CPAN
; --------------------------
; Print a flashing character
; --------------------------
; This subroutine is called from OUT-LINE to print a flashing error
; marker '?' or from the next routine to print a flashing cursor e.g. 'L'.
; However, this only gets called from OUT-LINE when printing the edit line
; or the input buffer to the lower screen so a direct call to $09F4 can
; be used, even though out-line outputs to other streams.
; In fact the alternate set is used for the whole routine.
t/data/zx48.asm view on Meta::CPAN
EXX ; switch back to main set
RET ; return
; ----------------
; Print the cursor
; ----------------
; This routine is called before any character is output while outputting
; a BASIC line or the input buffer. This includes listing to a printer
; or screen, copying a BASIC line to the edit buffer and printing the
; input buffer or edit buffer to the lower screen. It is only in the
; latter two cases that it has any relevance and in the last case it
; performs another very important function also.
;; OUT-CURS
L18E1: LD HL,($5C5B) ; fetch K_CUR the current cursor address
AND A ; prepare for true subtraction.
SBC HL,DE ; test against pointer address in DE and
RET NZ ; return if not at exact position.
; the value of MODE, maintained by KEY-INPUT, is tested and if non-zero
t/data/zx48.asm view on Meta::CPAN
; ---
; If mode was zero then, while printing a BASIC line, bit 2 of flags has been
; set if 'THEN' or ':' was encountered as a main character and reset otherwise.
; This is now used to determine if the 'K' cursor is to be printed but this
; transient state is also now transferred permanently to bit 3 of FLAGS
; to let the interrupt routine know how to decode the next key.
;; OUT-C-1
L18F3: LD HL,$5C3B ; Address FLAGS
t/data/zx48.asm view on Meta::CPAN
XOR $04 ; toggle the quotes flag.
LD ($5C6A),A ; update FLAGS2
POP AF ; and restore character.
;; OUT-CH-2
L1968: SET 2,(IY+$01) ; update FLAGS - signal L mode if the cursor
; is next.
;; OUT-CH-3
L196C: RST 10H ; PRINT-A vectors the character to
; channel 'S', 'K', 'R' or 'P'.
t/data/zx48.asm view on Meta::CPAN
LD (DE),A ; place quote in first new location at DE.
DEC HL ; decrease HL - from carriage return.
LD (HL),A ; and place a quote in second location.
;; IN-PR-3
L2129: LD ($5C5B),HL ; set keyboard cursor K_CUR to HL
BIT 7,(IY+$37) ; test FLAGX - is this INPUT LINE ??
JR NZ,L215E ; forward to IN-VAR-3 if so as input will
; be accepted without checking its syntax.
LD HL,($5C5D) ; fetch CH_ADD
t/data/zx48.asm view on Meta::CPAN
; when ENTER received rejoin other route but with no syntax check.
; INPUT and INPUT LINE converge here.
;; IN-VAR-4
L2161: LD (IY+$22),$00 ; set K_CUR_hi to a low value so that the cursor
; no longer appears in the input line.
CALL L21D6 ; routine IN-CHAN-K tests if the keyboard
; is being used for input.
JR NZ,L2174 ; forward to IN-VAR-5 if using another input
t/data/zx48.asm view on Meta::CPAN
; continue here if using the keyboard.
CALL L111D ; routine ED-COPY overprints the edit line
; to the lower screen. The only visible
; affect is that the cursor disappears.
; if you're inputting more than one item in
; a statement then that becomes apparent.
LD BC,($5C82) ; fetch line and column from ECHO_E
CALL L0DD9 ; routine CL-SET sets S-POSNL to those
CSS-Adaptor-Whitelist
view release on metacpan or search on metacpan
lib/CSS/Adaptor/Whitelist.pm view on Meta::CPAN
none | circle | disc | square | armenian
| decimal(?:-leading-zero)? | georgian | lower-greek | (?:lower|upper)-(?:alpha|latin|roman)
) \b )/x;
# various
my $re_cursor = qr/(?:
(?: $re_url (?: \s*,\s* $re_url )* \s* , )?
(?: auto | crosshair | default | help | move | pointer | progress | text | wait
| (?:[news]|[ns][ew])-resize
) \b
)/x;
lib/CSS/Adaptor/Whitelist.pm view on Meta::CPAN
overflow => list2hash(qw(visible hidden scroll auto)),
float => list2hash(qw(left right none)),
clear => list2hash(qw(left right none both)),
clip => qr/^(?:auto\b|rect\(\s*$re_dim(?:\s*,\s*$re_dim){3}\s*\))$/,
cursor => qr/^$re_cursor$/,
direction => list2hash(qw(ltr trl)),
height => qr/^(?:auto\b|$re_ndim)$/,
width => qr/^(?:auto\b|$re_ndim)$/,
'min-width' => qr/^$re_ndim$/,
lib/CSS/Adaptor/Whitelist.pm view on Meta::CPAN
CSS::Adaptor::Whitelist::set_url_re(qr{url(https?://example\.com/[\w/]+)});
Notice that the regexp should not be anchored (no C<^> and C<$> at the edges).
It is being used in these properties:
cursor
background
background-image
list-style
list-style-image
CSS-Croco
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libdbd-sqlite2-perl", "DBD-SQLite2", "0.33", "0", "0"
"libdbd-sqlite3-perl", "DBD-SQLite", "1.27", "0", "0"
"libdbd-xbase-perl", "DBD-XBase", "0.241", "1", "0"
"libdbi-perl", "DBI", "1.609", "5", "0"
"libdbicx-testdatabase-perl", "DBICx-TestDatabase", "0.02", "0", "0"
"libdbix-class-cursor-cached-perl", "DBIx-Class-Cursor-Cached", "1.0.1", "0", "0"
"libdbix-class-datetime-epoch-perl", "DBIx-Class-DateTime-Epoch", "0.05", "0", "0"
"libdbix-class-dynamicdefault-perl", "DBIx-Class-DynamicDefault", "0.03", "0", "0"
"libdbix-class-encodedcolumn-perl", "DBIx-Class-EncodedColumn", "0.00005", "0", "0"
"libdbix-class-perl", "DBIx-Class", "0.08115", "0", "0"
"libdbix-class-schema-loader-perl", "DBIx-Class-Schema-Loader", "0.04006", "0", "0"
CSS-DOM
view release on metacpan or search on metacpan
lib/CSS/DOM/Interface.pm view on Meta::CPAN
counterIncrement => STR,
counterReset => STR,
cue => STR,
cueAfter => STR,
cueBefore => STR,
cursor => STR,
direction => STR,
display => STR,
elevation => STR,
emptyCells => STR,
cssFloat => STR,
CSS-Flip
view release on metacpan or search on metacpan
lib/CSS/Janus.pm view on Meta::CPAN
return $line;
}
# fixCursorProperties ($line)
#
# Changes directional CSS cursor properties:
# 'cursor: ne-resize' => 'cursor: nw-resize'
sub fixCursorProperties {
my $self = shift;
my $line = shift;
CSS-Inliner
view release on metacpan or search on metacpan
t/html/linebreaktest.html view on Meta::CPAN
}
</style>
</head>
<body>
<p style="color:border-bottom:2px dotted rgb(54, 99,
136);cursor:pointer;">Email</p>
</body>
</html>
CSS-Orientation
view release on metacpan or search on metacpan
lib/CSS/Orientation.pm view on Meta::CPAN
$POSSIBLY_NEGATIVE_QUANTITY_SPACE,
$POSSIBLY_NEGATIVE_QUANTITY );
# Compile the cursor resize regexes
our $CURSOR_EAST_RE = resprintf( $LOOKBEHIND_NOT_LETTER . '([ns]?)e-resize' );
our $CURSOR_WEST_RE = resprintf( $LOOKBEHIND_NOT_LETTER . '([ns]?)w-resize' );
# Matches the condition where we need to replace the horizontal component
# of a background-position value when expressed in horizontal percentage.
CSS-Prepare
view release on metacpan or search on metacpan
lib/CSS/Prepare/Property/UI.pm view on Meta::CPAN
error => "invalid ${type} property: '${value}'"
};
}
};
&$valid_property_or_error( 'cursor' )
if 'cursor' eq $property;
&$valid_property_or_error( 'outline_width' )
if 'outline-width' eq $property;
&$valid_property_or_error( 'outline_style' )
lib/CSS/Prepare/Property/UI.pm view on Meta::CPAN
error => "invalid outline property: '${value}'"
}
unless %canonical;
}
if ( defined $canonical{'cursor'} ) {
$canonical{'cursor'} = shorten_url_value(
$canonical{'cursor'},
$location,
$self,
);
}
lib/CSS/Prepare/Property/UI.pm view on Meta::CPAN
push @output, @outline;
}
push @output,
sprintf( $self->output_format,
'cursor:', $block->{'cursor'},
)
if defined $block->{'cursor'};
return @output;
}
1;
CSS-Sass
view release on metacpan or search on metacpan
t/sass-spec/benchmarks/vanilla_css_huge.scss view on Meta::CPAN
/**
* 1. Avoid the WebKit bug in Android 4.0.* where (2) destroys native `audio`
* and `video` controls.
* 2. Correct inability to style clickable `input` types in iOS.
* 3. Improve usability and consistency of cursor style between image-type
* `input` and others.
*/
button,
html input[type="button"],
input[type="reset"],
input[type="submit"] {
-webkit-appearance: button;
/* 2 */
cursor: pointer;
/* 3 */ }
/**
* Re-set default cursor for disabled elements.
*/
button[disabled],
html input[disabled] {
cursor: default; }
/**
* 1. Address box sizing set to `content-box` in IE 8/9.
* 2. Remove excess padding in IE 8/9.
*/
t/sass-spec/benchmarks/vanilla_css_huge.scss view on Meta::CPAN
vertical-align: top; } }
.customer-filter {
display: block;
list-style: none;
cursor: pointer; }
.customer-filter:hover {
color: #049fde; }
@media screen and (min-width: 960px) {
.customer-filter {
padding: 0 15px;
t/sass-spec/benchmarks/vanilla_css_huge.scss view on Meta::CPAN
.main-footer-navlist > .menu-item > a, .main-footer-navlist > .menu-item > a:visited, .main-footer-navlist > .menu-item > a:link {
text-transform: uppercase;
color: white;
font-weight: 400;
margin-bottom: 10px;
cursor: default; }
.main-footer-navlist > .menu-item > a:hover, .main-footer-navlist > .menu-item a:active {
color: white;
opacity: 1; }
.main-footer-navlist > .menu-item:nth-child(1) {
CWB-CQI
view release on metacpan or search on metacpan
examples/Tkwic.perl view on Meta::CPAN
# Wenn man hier Busy() verwendet, kann es passieren, dass
# einige Fenster trotz Unbusy() gesperrt bleiben. Damit
# der Benutzer trotzdem ein Feedback bekommt, wird eine
# Uhr als Mauszeiger verwendet.
#$_->Busy(-recurse => 1);
$_->configure(-cursor => 'watch');
}
}
}
sub unbusy {
examples/Tkwic.perl view on Meta::CPAN
my $main_window = $self->{main_window};
my @kids = $main_window->children();
foreach (@kids) {
if ($_->class() eq 'Toplevel') {
#$_->Unbusy();
$_->configure(-cursor => 'left_ptr');
}
}
$main_window->Unbusy();
}
examples/Tkwic.perl view on Meta::CPAN
$query_entry = $vbox->Entry();
$query_entry->pack(-fill => 'x', -expand => 1);
}
$query_entry->bind('<FocusIn>', [ \&query_focus_in, $self, $i ]);
$query_entry->bind('<Button-3>',
sub { $popup->Popup(-popover => 'cursor', -popanchor => 'nw'); });
$self->{query_entry}[$i] = $query_entry;
}
$self->{query_entry}[0]->focus();
my $hbox = $vbox->Frame();
my $history_button =
Cache-BDB
view release on metacpan or search on metacpan
lib/Cache/BDB.pm view on Meta::CPAN
my $self = shift;
my $t = time();
my $count = 0;
my $db = $self->{__db};
my $cursor = $db->db_cursor();
my %ret;
my ($k, $v) = ('','');
while($cursor->c_get($k, $v, DB_NEXT) == 0) {
my $d = $self->get($k);
$ret{$k} = $d if $d;
}
$cursor->c_close();
return \%ret;
}
sub _update_access_time {
lib/Cache/BDB.pm view on Meta::CPAN
}
my ($k, $v) = ('','');
my $size = 0;
my $cursor = $self->{__db}->db_cursor();
while($cursor->c_get($k, $v, DB_NEXT) == 0) {
$size += total_size($v->{__data});
}
$cursor->c_close();
return $size;
}
##############################################
# Methods for removing items from the cache. #
lib/Cache/BDB.pm view on Meta::CPAN
my $self = shift;
my $t = time();
my $count = 0;
my $db = $self->{__db};
my $cursor = $db->db_cursor(DB_WRITECURSOR);
my ($k, $v) = ('','');
while($cursor->c_get($k, $v, DB_NEXT) == 0) {
if($self->__is_expired($v, $t)) {
$cursor->c_del();
$count++;
}
}
$cursor->c_close();
warn "compaction failed!" if $self->_compact();
return $count;
}
( run in 1.851 second using v1.01-cache-2.11-cpan-1d5ca39e368 )