Result:
found more than 469 distributions - search limited to the first 2001 files matching your query
( run in 0.586 )
AxKit2
view release on metacpan or search on metacpan
demo/spod5/ui/default/pretty.css view on Meta::CPAN
top: auto;}
div#controls form {position: absolute; bottom: 0; right: 0; width: 100%;
margin: 0; padding: 0;}
#controls #navLinks a {padding: 0; margin: 0 0.5em;
background: #eee; border: none; color: #227;
cursor: pointer;}
#controls #navList {height: 1em;}
#controls #navList #jumplist {position: absolute; bottom: 0; right: 0; background: #DDD; color: #227;}
#currentSlide {text-align: center; font-size: 0.5em; color: #449;}
B-C
view release on metacpan or search on metacpan
ramblings/remark.js view on Meta::CPAN
require=function(e,t,n){function i(n,s){if(!t[n]){if(!e[n]){var o=typeof require=="function"&&require;if(!s&&o)return o(n,!0);if(r)return r(n,!0);throw new Error("Cannot find module '"+n+"'")}var u=t[n]={exports:{}};e[n][0].call(u.exports,function(t)...
this.QUOTE_STRING_MODE={className:"string",begin:'"',end:'"',illegal:"\\n",contains:[this.BACKSLASH_ESCAPE]};this.PHRASAL_WORDS_MODE={begin:/\b(a|an|the|are|I|I'm|isn't|don't|doesn't|won't|but|just|should|pretty|simply|enough|gonna|going|wtf|so|such)...
SUBST.contains=EXPRESSIONS;return{aliases:["coffee","cson","iced"],keywords:KEYWORDS,contains:EXPRESSIONS.concat([{className:"comment",begin:"###",end:"###"},hljs.HASH_COMMENT_MODE,{className:"function",begin:"("+JS_IDENT_RE+"\\s*=\\s*)?(\\(.*\\))?\\...
}()},{}],8:[function(require,module,exports){exports.addClass=function(element,className){element.className=exports.getClasses(element).concat([className]).join(" ")};exports.removeClass=function(element,className){element.className=exports.getClasse...
events.on("slideChanged",updateHash);navigateByHash()}function navigateByHash(){var slideNoOrName=(dom.getLocationHash()||"").substr(1);events.emit("gotoSlide",slideNoOrName)}function updateHash(slideNoOrName){dom.setLocationHash("#"+slideNoOrName)}}...
B-Debugger
view release on metacpan or search on metacpan
lib/B/Debugger.pm view on Meta::CPAN
print "> ";
my $in = readline(*STDIN);
chomp $in;
$in = $last_in unless $in;
$last_in = $in;
# $in =~ s/[:cntrl:]//g; # strip control chars, cursor keys
if ($in =~ /^(h|help)$/) { debugger_help; return DBG_SAME; }
elsif ($in =~ /^(q|quit)$/) { print "quit\nexecuting...\n"; return DBG_QUIT; }
elsif ($in =~ /^exit$/) { print "exit\n"; exit; } # FIXME! Add an exit hook into INIT?
elsif ($in =~ /^(x|eval)\s+(.+)$/) { print (eval "$2"),"\n"; return DBG_SAME; }
elsif ($in =~ /^(n|next)$/) {
BBS-Perm
view release on metacpan or search on metacpan
lib/BBS/Perm/Term.pm view on Meta::CPAN
my $font = Pango::FontDescription->from_string( $conf->{font} );
$term->set_font($font);
}
if ( $conf->{color} ) {
my @elements = qw/foreground background dim bold cursor highlight/;
for (@elements) {
if ( $conf->{color}{$_} ) {
no strict 'refs';
"Gnome2::Vte::Terminal::set_color_$_"->(
$term, Gtk2::Gdk::Color->parse( $conf->{color}{$_} )
BDB-Wrapper
view release on metacpan or search on metacpan
lib/BDB/Wrapper.pm view on Meta::CPAN
return \%hash;
}
=head2 create_read_hash_ref
Not recommended method. Please use create_read_dbh and cursor().
This will creates database handler for reading.
$self->create_read_hash_ref({
'bdb'=>$bdb,
'hash'=>0 or 1,
BDB
view release on metacpan or search on metacpan
$int = $db->set_re_len (U32 re_len)
$int = $db->set_h_ffactor (U32 h_ffactor)
$int = $db->set_h_nelem (U32 h_nelem)
$int = $db->set_q_extentsize (U32 extentsize)
$dbc = $db->cursor (DB_TXN_ornull *txn = 0, U32 flags = 0)
flags: READ_COMMITTED READ_UNCOMMITTED WRITECURSOR TXN_SNAPSHOT
$seq = $db->sequence (U32 flags = 0)
=head3 Example:
$bool = $txn->failed
# see db_txn_finish documentation, above
=head2 DBC/cursor methods
Methods available on DBC/$dbc handles:
DESTROY (DBC_ornull *dbc)
CODE:
if (dbc)
dbc->c_close (dbc);
$int = $cursor->set_priority ($priority = PRIORITY_*) (v4.6)
=head3 Example:
my $c = $db->cursor;
for (;;) {
db_c_get $c, my $key, my $data, BDB::NEXT;
warn "<$!,$key,$data>";
last if $!;
BLASTaid
view release on metacpan or search on metacpan
t/REPORT.blast view on Meta::CPAN
Notice: this program and its default parameter settings are optimized to find
nearly identical sequences rapidly. To identify weak protein similarities
encoded in nucleic acid, use BLASTX, TBLASTN or TBLASTX.
Query= gi|58743322|ref|NM_001011718.1| Homo sapiens X Kell blood group
precursor-related family, member 7 (XKR7), mRNA
(2929 letters; record 8)
Database: /gscmnt/131/analysis/compbio/twylie/20060201/chimp_6x/SC/chimp_6x_SC
.fa
275,754 sequences; 3,278,296,180 total letters.
Bash-Completion-Plugin-Test
view release on metacpan or search on metacpan
lib/Bash/Completion/Plugin/Test.pm view on Meta::CPAN
is_deeply [ sort @got_completions ], [ sort @$expected_completions ],
$name;
}
sub _cursor_character {
return '^';
}
sub _extract_cursor {
my ( $self, $command_line ) = @_;
my $cursor_char = $self->_cursor_character;
my $index = index $command_line, $cursor_char;
if($index == -1) {
croak "Failed to find cursor character in command line";
}
my $replacements = $command_line =~ s/\Q$cursor_char\E//g;
if($replacements > 1) {
croak "More than one cursor character in command line";
}
return ( $command_line, $index );
}
sub _create_request {
my ( $self, $command_line ) = @_;
my $cursor_index;
( $command_line, $cursor_index ) = $self->_extract_cursor($command_line);
local $ENV{'COMP_LINE'} = $command_line;
local $ENV{'COMP_POINT'} = $cursor_index;
return Bash::Completion::Request->new;
}
sub _create_plugin {
lib/Bash/Completion/Plugin/Test.pm view on Meta::CPAN
Runs the current completion plugin against C<$command>, and verifies
that the results it returns are the same as those in C<@expected>.
The order of the items in C<@expected> does not matter. C<$name> is
an optional name for the test. The carat character '^' must be present
in C<$command>; it is removed and represents the location of the cursor
when completion occurs.
=head1 SEE ALSO
L<Bash::Completion>
Bash-Completion
view release on metacpan or search on metacpan
lib/Bash/Completion/Request.pm view on Meta::CPAN
Number of words in the command line before the completion point.
=head2 point
The index in the command line where the shell cursor is.
=head1 METHODS
=head2 new
Batch-Batchrun
view release on metacpan or search on metacpan
lib/Batch/Batchrun/Dbfunctions.pm view on Meta::CPAN
# -NOLIS = Do not generate .LIS file(s) from .SPF file(s)
# -O[file] = Direct log messages to console or specified file
#-PRINTER:{xx} = Force listing files to be for HT, LP, HP or PS printers
# -RS = Save run time file in {program}.sqt
# -RT = Use run time file (skip compile)
# -S = Display cursor status at end of run
# -Tn = Test report for n pages, ignore 'order by's
# -XB = Do not display the program banner
# -XI = Do not allow user interaction during program run
# -XL = Do not logon to database (no SQL in program)
# -XTB = Do not trim blanks from LP .LIS files
Beagle
view release on metacpan or search on metacpan
share/public/css/base/markitup_skin.css view on Meta::CPAN
height:300px;
margin:5px 0;
}
.markItUpFooter {
width:100%;
cursor:n-resize;
}
.markItUpResizeHandle {
overflow:hidden;
width:22px; height:5px;
margin-left:auto;
margin-right:auto;
background-image:url(../../images/markitup/skin/handle.png);
cursor:n-resize;
}
/***************************************************************************************/
/* first row of buttons */
.markItUpHeader ul li {
list-style:none;
Beekeeper
view release on metacpan or search on metacpan
examples/dashboard/css/dashboard.css view on Meta::CPAN
#bkservices td:first-child {
text-align: left;
}
#bkservices td:first-child:hover {
cursor: pointer;
}
#bkservices th:nth-child(2) {
text-align: center;
}
examples/dashboard/css/dashboard.css view on Meta::CPAN
#bkservices td:nth-child(2) {
text-align: center;
}
#bkservices td:nth-child(5):hover {
cursor: pointer;
}
/* Services */
#services .statistic {
Bencher-ScenarioUtil-Completion
view release on metacpan or search on metacpan
lib/Bencher/ScenarioUtil/Completion.pm view on Meta::CPAN
tags => {
summary => 'Participant tags',
schema => ['array*', of=>'str*'],
},
cmdline => {
summary => 'Command, with ^ put to mark cursor position',
schema => 'str*',
req => 1,
},
},
result_naked => 1,
lib/Bencher/ScenarioUtil/Completion.pm view on Meta::CPAN
=over 4
=item * B<cmdline>* => I<str>
Command, with ^ put to mark cursor position.
=item * B<description> => I<str>
Participant description.
Benchmark-DKbench
view release on metacpan or search on metacpan
data/wiki1.html view on Meta::CPAN
<li id="cite_note-714"><span class="mw-cite-backlink"><b><a href="#cite_ref-714">^</a></b></span> <span class="reference-text">Promotion aimed at assisting <a href="/wiki/St._Jude_Children%E2%80%99s_Research_Hospital" class="mw-redirect" title="St. J...
</li>
</ol></div></div>
<h2><span class="mw-headline" id="References">References</span><span class="mw-editsection"><span class="mw-editsection-bracket">[</span><a href="/w/index.php?title=List_of_Falcon_9_and_Falcon_Heavy_launches&action=edit&section=36" title="Edi...
<div class="mw-references-wrap mw-references-columns"><ol class="references">
<li id="cite_note-sxf9o20100508-1"><span class="mw-cite-backlink"><b><a href="#cite_ref-sxf9o20100508_1-0">^</a></b></span> <span class="reference-text"><style data-mw-deduplicate="TemplateStyles:r999302996">.mw-parser-output cite.citation{font-style...
</li>
<li id="cite_note-pm20120207-2"><span class="mw-cite-backlink"><b><a href="#cite_ref-pm20120207_2-0">^</a></b></span> <span class="reference-text"><link rel="mw-deduplicated-inline-style" href="mw-data:TemplateStyles:r999302996"/><cite id="CITEREFSim...
</li>
<li id="cite_note-3"><span class="mw-cite-backlink"><b><a href="#cite_ref-3">^</a></b></span> <span class="reference-text"><link rel="mw-deduplicated-inline-style" href="mw-data:TemplateStyles:r999302996"/><cite id="CITEREFWall2015" class="citation n...
</li>
data/wiki1.html view on Meta::CPAN
<li id="cite_note-943"><span class="mw-cite-backlink"><b><a href="#cite_ref-943">^</a></b></span> <span class="reference-text"><link rel="mw-deduplicated-inline-style" href="mw-data:TemplateStyles:r999302996"/><cite id="CITEREFRalph2021" class="citat...
</li>
<li id="cite_note-944"><span class="mw-cite-backlink"><b><a href="#cite_ref-944">^</a></b></span> <span class="reference-text"><link rel="mw-deduplicated-inline-style" href="mw-data:TemplateStyles:r999302996"/><cite id="CITEREFRalph2021" class="citat...
</li>
</ol></div>
<div class="navbox-styles nomobile"><style data-mw-deduplicate="TemplateStyles:r1057682214">.mw-parser-output .navbox{box-sizing:border-box;border:1px solid #a2a9b1;width:100%;clear:both;font-size:88%;text-align:center;padding:1px;margin:1em auto 0}....
<ul><li><a href="/wiki/Falcon_1" title="Falcon 1">Falcon 1</a></li>
<li><a href="/wiki/Falcon_9" title="Falcon 9">Falcon 9</a>
<ul><li><a href="/wiki/Falcon_9_v1.0" title="Falcon 9 v1.0">v1.0</a></li>
<li><a href="/wiki/Falcon_9_v1.1" title="Falcon 9 v1.1">v1.1</a></li>
<li><a href="/wiki/Falcon_9_Full_Thrust" title="Falcon 9 Full Thrust">Full Thrust</a></li>
Benchmark-Perl-Formance-Cargo
view release on metacpan or search on metacpan
share/P6STD/LazyMap.pm view on Meta::CPAN
# >1 (since iter only removes one at a time, but they don't arrive that way)
# L: The values input to the map which have not yet been fed to the block
# N: Number of values so far returned - this is used to ignore cuts if we
# haven't delivered our first value yet (somewhat of a hack).
#
# Values returned by a LazyMap are expected to be cursors, or at least have
# an _xact field that can be checked for cutness.
# Construct a lazymap - block, then a list of inputs (concatenated if lazies)
sub new {
my $class = shift;
share/P6STD/LazyMap.pm view on Meta::CPAN
else {
shift @$called;
}
}
# finally have at least one real cursor, grep for first with live transaction
while (@$called and ref($$called[0]) !~ /^Lazy/) {
my $candidate = shift @$called;
# make sure its transaction doesn't have a prior commitment
my $xact = $candidate->{_xact};
my $n = $self->{N}++;
Benchmark-Thread-Size
view release on metacpan or search on metacpan
lib/Benchmark/Thread/Size.pm view on Meta::CPAN
$size{$threads} = $size;
# Kill the process quickly (should work even on Windows)
# Close the pipe for good measure
# Remove the script
# Move cursor so the next number can be shown
kill 15,$pid;
close( $out ); # don't care whether successful
# unlink( $testfile );
print STDERR "\b\b\b\b";
BerkeleyDB-Easy
view release on metacpan or search on metacpan
lib/BerkeleyDB/Easy.pm view on Meta::CPAN
$db->put('foo', 'bar');
my $foo = $db->get('foo');
my $cur = $db->cursor;
while (my ($key, $val) = $cur->next) {
$db->del($key);
}
BerkeleyDB-Lite
view release on metacpan or search on metacpan
my $value = "" ;
my @values = () ;
# database locked
my $cursor = $self->db_cursor ;
if ( $cursor->c_get( $key, $value, DB_SET ) ) {
$cursor = undef ;
return @values ;
}
push @values, $value ;
while ( ! $cursor->c_get( $key, $value, DB_NEXT_DUP ) ) {
push @values, $value ;
}
$cursor = undef ;
return @values ;
}
## experimental to improve durability
sub sync {
my $self = tied %$ref ;
my $key = shift ;
my $value = shift ;
my $orig = $value ;
my $cursor = $self->db_cursor( DB_WRITECURSOR ) ;
my $status = $cursor->c_get( $key, $value, DB_GET_BOTH ) ;
## Warning: Ensure consistency between numbers with strings.
## See Storable documentation.
$cursor->c_del unless $status ;
$cursor = undef ;
return $status ;
}
sub DESTROY {
return [] unless $partkey ;
my $length = length $partkey ;
# database locked
my $cursor = $self->db_cursor ;
my $value = 0 ;
my $key = $partkey ;
my $status = $cursor->c_get( $key, $value, DB_SET_RANGE ) ;
while ( $key ) {
last if $status || substr( $key, 0, $length ) ne $partkey ;
if ( $isunique ) {
}
else {
push @each, [ $key, $value ] ;
}
$status = $cursor->c_get( $key, $value, DB_NEXT ) ;
}
$cursor = undef ;
@each = map { [ $_, $unique{$_} ] } keys %unique if $isunique ;
return \@each ;
}
sub matchingkeys {
my $ref = shift ;
my $self = tied %$ref ;
my $key = 0 ;
my $value = 0 ;
my $cursor = $self->db_cursor() ;
$cursor->c_get( $key, $value, DB_LAST ) ;
$ref->{ $key +1 } = {} ;
$cursor = undef ;
return $key +1 ;
}
package BerkeleyDB::Lite::Btree::Lexical ;
BerkeleyDB-Locks
view release on metacpan or search on metacpan
$db{test} = 'failed' ;
print stderr " attempting read lock...\n" ;
my ( $k, $v ) ;
my $c = $db->db_cursor ;
$c->c_get( $k, $v, DB_FIRST ) ;
alarm( 4 ) ;
while ( $flag ) {
sleep 1 ;
BerkeleyDB-Manager
view release on metacpan or search on metacpan
lib/BerkeleyDB/Manager.pm view on Meta::CPAN
if ( my $ret = $self->env->txn_checkpoint( $self->checkpoint_kbyte, $self->checkpoint_min, 0 ) ) {
die $ret;
}
}
sub dup_cursor_stream {
my ( $self, @args ) = @_;
my %args = @args;
my ( $init, $key, $first, $cb, $cursor, $db, $n ) = delete @args{qw(init key callback_first callback cursor db chunk_size)};
my ( $values, $keys ) = @args{qw(values keys)};
my $pairs = !$values && !$keys;
croak "'values' and 'keys' are mutually exclusive" if $values && $keys;
$key ||= '';
$cursor ||= ( $db || croak "either 'cursor' or 'db' is a required argument" )->db_cursor;
$first ||= sub {
my ( $c, $r ) = @_;
my $v;
lib/BerkeleyDB/Manager.pm view on Meta::CPAN
my $g = $init && $self->$init(%args);
my $ret = [];
my $bulk = Data::Stream::Bulk::Array->new( array => $ret );
if ( $cursor->$first($ret) ) {
$cursor->c_count(my $count);
if ( $count > 1 ) { # more entries for the same value
# fetch up to $n times
for ( 1 .. $n-1 ) {
unless ( $cursor->$cb($ret) ) {
return $bulk;
}
}
# and defer the rest
my $rest = $self->cursor_stream(@args, callback => $cb, cursor => $cursor);
return $bulk->cat($rest);
}
return $bulk;
} else {
return nil();
}
}
sub cursor_stream {
my ( $self, %args ) = @_;
my ( $init, $cb, $cursor, $db, $f, $n ) = delete @args{qw(init callback cursor db flag chunk_size)};
my ( $values, $keys ) = @args{qw(values keys)};
my $pairs = !$values && !$keys;
croak "'values' and 'keys' are mutually exclusive" if $values && $keys;
$cursor ||= ( $db || croak "either 'cursor' or 'db' is a required argument" )->db_cursor;
$f ||= DB_NEXT;
$cb ||= do {
my ( $k, $v ) = ( '', '' );
lib/BerkeleyDB/Manager.pm view on Meta::CPAN
$n ||= $self->chunk_size;
Data::Stream::Bulk::Callback->new(
callback => sub {
return unless $cursor;
my $g = $init && $self->$init(%args);
my $ret = [];
for ( 1 .. $n ) {
unless ( $cursor->$cb($ret) ) {
# we're done, this is the last block
undef $cursor;
return ( scalar(@$ret) && $ret );
}
}
return $ret;
lib/BerkeleyDB/Manager.pm view on Meta::CPAN
$db->db_put("foo", "bar");
die "error!"; # rolls back
});
# fetch all key/value pairs as a Data::Stream::Bulk
my $pairs = $m->cursor_stream( db => $db );
=head1 DESCRIPTION
This object provides a convenience wrapper for L<BerkeleyDB>
lib/BerkeleyDB/Manager.pm view on Meta::CPAN
The hash of currently open dbs.
=item chunk_size
See C<cursor_stream>.
Defaults to 500.
=back
lib/BerkeleyDB/Manager.pm view on Meta::CPAN
=item all_open_dbs
Returns a list of all the registered databases.
=item cursor_stream %args
Fetches data from a cursor, returning a L<Data::Stream::Bulk>.
If C<cursor> is not provided but C<db> is, a new cursor will be created.
If C<callback> is provided it will be invoked on the cursor with an accumilator
array repeatedly until it returns a false value. For example, to extract
triplets from a secondary index, you can use this callback:
my ( $sk, $pk, $v ) = ( '', '', '' ); # to avoid uninitialized warnings from BDB
$m->cursor_stream(
db => $db,
callback => {
my ( $cursor, $accumilator ) = @_;
if ( $cursor->c_pget( $sk, $pk, $v ) == 0 ) {
push @$accumilator, [ $sk, $pk, $v ];
return 1;
}
return; # nothing left
}
);
If it is not provided, C<c_get> will be used, returning C<[ $key, $value ]> for
each cursor position. C<flag> can be passed, and defaults to C<DB_NEXT>.
C<chunk_size> controls the number of pairs returned in each chunk. If it isn't
provided the attribute C<chunk_size> is used instead.
If C<values> or C<keys> is set to a true value then only values or keys will be
lib/BerkeleyDB/Manager.pm view on Meta::CPAN
Lastly, C<init> is an optional callback that is invoked once before each chunk,
that can be used to set up the database. The return value is retained until the
chunk is finished, so this callback can return a L<Scope::Guard> to perform
cleanup.
=item dup_cursor_stream %args
A specialization of C<cursor_stream> for fetching duplicate key entries.
Takes the same arguments as C<cursor_stream>, but adds a few more.
C<key> can be passed in to initialize the cursor with C<DB_SET>.
To do manual initialization C<callback_first> can be provided instead.
C<callback> is generated to use C<DB_NEXT_DUP> instead of C<DB_NEXT>, and
C<flag> is ignored.
BerkeleyDB
view release on metacpan or search on metacpan
BerkeleyDB.pm view on Meta::CPAN
sub CLEAR_old
{
my $self = shift ;
my ($key, $value) = (0, 0) ;
my $cursor = $self->_db_write_cursor() ;
while ($cursor->c_get($key, $value, BerkeleyDB::DB_PREV()) == 0)
{ $cursor->c_del() }
}
sub CLEAR_new
{
my $self = shift ;
BerkeleyDB.pm view on Meta::CPAN
sub SHIFT
{
my $self = shift;
my ($key, $value) = (0, 0) ;
my $cursor = $self->_db_write_cursor() ;
return undef if $cursor->c_get($key, $value, BerkeleyDB::DB_FIRST()) != 0 ;
return undef if $cursor->c_del() != 0 ;
return $value ;
}
BerkeleyDB.pm view on Meta::CPAN
{
my $self = shift;
if (@_)
{
my ($key, $value) = (0, 0) ;
my $cursor = $self->_db_write_cursor() ;
my $status = $cursor->c_get($key, $value, BerkeleyDB::DB_FIRST()) ;
if ($status == 0)
{
foreach $value (reverse @_)
{
$key = 0 ;
$cursor->c_put($key, $value, BerkeleyDB::DB_BEFORE()) ;
}
}
elsif ($status == BerkeleyDB::DB_NOTFOUND())
{
$key = 0 ;
BerkeleyDB.pm view on Meta::CPAN
{
my $self = shift;
if (@_)
{
my ($key, $value) = (-1, 0) ;
my $cursor = $self->_db_write_cursor() ;
my $status = $cursor->c_get($key, $value, BerkeleyDB::DB_LAST()) ;
if ($status == 0 || $status == BerkeleyDB::DB_NOTFOUND())
{
$key = -1 if $status != 0 and $self->type != BerkeleyDB::DB_RECNO() ;
foreach $value (@_)
{
BerkeleyDB.pm view on Meta::CPAN
}
# can use this when DB_APPEND is fixed.
# foreach $value (@_)
# {
# my $status = $cursor->c_put($key, $value, BerkeleyDB::DB_AFTER()) ;
#print "[$status]\n" ;
# }
}
}
sub POP
{
my $self = shift;
my ($key, $value) = (0, 0) ;
my $cursor = $self->_db_write_cursor() ;
return undef if $cursor->c_get($key, $value, BerkeleyDB::DB_LAST()) != 0 ;
return undef if $cursor->c_del() != 0 ;
return $value ;
}
sub SPLICE
BerkeleyDB.pm view on Meta::CPAN
my $wantarray = wantarray ;
my %values = () ;
my @values = () ;
my $counter = 0 ;
my $status = 0 ;
my $cursor = $db->db_cursor() ;
# iterate through the database until either EOF ($status == 0)
# or a different key is encountered ($key ne $origkey).
for ($status = $cursor->c_get($key, $value, BerkeleyDB::DB_SET()) ;
$status == 0 and $key eq $origkey ;
$status = $cursor->c_get($key, $value, BerkeleyDB::DB_NEXT()) ) {
# save the value or count number of matches
if ($wantarray) {
if ($flag)
{ ++ $values{$value} }
else
BerkeleyDB.pm view on Meta::CPAN
}
return ($wantarray ? ($flag ? %values : @values) : $counter) ;
}
sub db_cursor
{
my $db = shift ;
my ($addr) = $db->_db_cursor(@_) ;
my $obj ;
$obj = bless [$addr, $db] , "BerkeleyDB::Cursor" if $addr ;
return $obj ;
}
sub _db_write_cursor
{
my $db = shift ;
my ($addr) = $db->__db_write_cursor(@_) ;
my $obj ;
$obj = bless [$addr, $db] , "BerkeleyDB::Cursor" if $addr ;
return $obj ;
}
sub db_join
{
croak 'Usage: $db->BerkeleyDB::db_join([cursors], flags=0)'
if @_ < 2 || @_ > 3 ;
my $db = shift ;
croak 'db_join: first parameter is not an array reference'
if ! ref $_[0] || ref $_[0] ne 'ARRAY';
my ($addr) = $db->_db_join(@_) ;
BerkeleyDB.pm view on Meta::CPAN
package BerkeleyDB::Cursor ;
sub c_close
{
my $cursor = shift ;
$cursor->[1] = "" ;
return $cursor->_c_close() ;
}
sub c_dup
{
my $cursor = shift ;
my ($addr) = $cursor->_c_dup(@_) ;
my $obj ;
$obj = bless [$addr, $cursor->[1]] , "BerkeleyDB::Cursor" if $addr ;
return $obj ;
}
sub c_get_db_stream
{
my $cursor = shift ;
my $addr = $cursor->_c_get_db_stream(@_);
my $obj ;
$obj = bless [$addr, $cursor] , "BerkeleyDB::DbStream" if $addr ;
return $obj ;
}
sub db_stream
{
BerkeleyDB.pm view on Meta::CPAN
return $obj ;
}
#sub gdbs
#{
# my $cursor = shift ;
#
# my $k = '';
# my $v = '';
# $db->partial_set(0,0) ;
# ok $cursor->c_get($k, $v, DB_FIRST) == 0, "set cursor"
# or diag "Status is [" . $cursor->status() . "]";
# $db->partial_clear() ;
# is $k, "1";
#}
sub DESTROY
BerkeleyDB.pm view on Meta::CPAN
croak("CDS not enabled for this database\n")
if ! $db->cds_enabled();
if ( ! defined $Object{"$db"})
{
$Object{"$db"} = $db->_db_write_cursor()
|| return undef ;
}
++ $Count{"$db"} ;
BikePower
view release on metacpan or search on metacpan
BikePower/Tk.pm view on Meta::CPAN
my $d = $top->Dialog
(-title => $s{'Warning'},
-text => sprintf($s{'Overwrite existing file <%s>?'}, $file),
-default_button => $s{'No'},
-buttons => [$s{'Yes'}, $s{'No'}],
-popover => 'cursor');
return if $d->Show ne $s{'Yes'};
}
}
}
if (defined $file) {
Bio-ASN1-EntrezGene
view release on metacpan or search on metacpan
t/data/entrezgene.dat view on Meta::CPAN
gi 6226959 } ,
products {
{
type peptide ,
heading "Reference" ,
label "precursor" ,
accession "NP_000005" ,
version 1 ,
genomic-coords {
packed-int {
{
t/data/entrezgene.dat view on Meta::CPAN
gi 6226959 } ,
products {
{
type peptide ,
heading "Reference" ,
label "precursor" ,
accession "NP_000005" ,
version 1 ,
genomic-coords {
packed-int {
{
t/data/entrezgene.dat view on Meta::CPAN
gi 6226959 } ,
products {
{
type peptide ,
heading "Reference" ,
label "precursor" ,
accession "NP_000005" ,
version 1 ,
genomic-coords {
packed-int {
{
t/data/entrezgene.dat view on Meta::CPAN
src {
db "Protein" ,
tag
id 4557225 } ,
anchor "NP_000005" ,
post-text "alpha-2-macroglobulin precursor" } } ,
seqs {
whole
gi 4557225 } ,
comment {
{
t/data/entrezgene.dat view on Meta::CPAN
str "Jul 7 2004 1:36PM" } ,
{
type generif ,
text "There is a significant genetic association of the 5 bp deletion
and two novel polymorphisms in alpha-2-macroglobulin alpha-2-macroglobulin
precursor with AD" ,
version 0 ,
refs {
pmid 12966032 } ,
create-date
str "Jun 27 2004 5:41PM" ,
t/data/entrezgene.dat view on Meta::CPAN
comment {
{
type generif ,
text "Binding of HIV-1 Tat to LRP inhibits neuronal binding, uptake
and degradation of physiological ligands for LRP, including
alpha2-macroglobulin, apolipoprotein E4, amyloid precursor and amyloid
beta-protein" ,
version 0 ,
refs {
pmid 11100124 } ,
comment {
t/data/entrezgene.dat view on Meta::CPAN
gi 9665246 } ,
products {
{
type peptide ,
heading "Reference" ,
label "precursor" ,
accession "NP_001076" ,
version 1 ,
genomic-coords {
packed-int {
{
t/data/entrezgene.dat view on Meta::CPAN
gi 9665246 } ,
products {
{
type peptide ,
heading "Reference" ,
label "precursor" ,
accession "NP_001076" ,
version 1 ,
genomic-coords {
packed-int {
{
t/data/entrezgene.dat view on Meta::CPAN
gi 9665246 } ,
products {
{
type peptide ,
heading "Reference" ,
label "precursor" ,
accession "NP_001076" ,
version 1 ,
genomic-coords {
packed-int {
{
t/data/entrezgene.dat view on Meta::CPAN
db "Protein" ,
tag
id 50659080 } ,
anchor "NP_001076" ,
post-text "serine (or cysteine) proteinase inhibitor, clade
A, member 3 precursor" } } ,
seqs {
whole
gi 50659080 } ,
comment {
{
Bio-Biblio
view release on metacpan or search on metacpan
lib/Bio/DB/Biblio/eutils.pm view on Meta::CPAN
return $xml;
}
sub reset_retrieval {
shift->cursor(0);
return 1;
}
sub get_next {
my $self = shift;
return unless $self->has_next;
my $xml = $self->get_by_id( @{ $self->ids }[$self->cursor] );
$self->cursor( $self->cursor + 1 );
return $xml;
}
lib/Bio/DB/Biblio/eutils.pm view on Meta::CPAN
}
sub has_next {
my $self = shift;
return ($self->cursor < $self->count) ? 1 : undef;
}
lib/Bio/DB/Biblio/eutils.pm view on Meta::CPAN
my($webenv_element) = $self->twig->get_xpath('//WebEnv');
if (defined $webenv_element) {
$self->collection_id($webenv_element->text());
}
#initialize/reset cursor
$self->cursor(0);
return $self;
}
lib/Bio/DB/Biblio/eutils.pm view on Meta::CPAN
sub get_all_entries {
return;
}
sub cursor {
my $self = shift;
my $arg = shift;
return $self->{'cursor'} = $arg if defined($arg);
return $self->{'cursor'};
}
sub twig {
my $self = shift;
lib/Bio/DB/Biblio/eutils.pm view on Meta::CPAN
=head2 reset_retrieval
Title : reset_retrieval
Usage : $biblio->reset_retrieval();
Function: reset cursor in id list, see cursor()
Returns : 1
Args : none
=head2 get_next
lib/Bio/DB/Biblio/eutils.pm view on Meta::CPAN
Usage : do not use
Function: no-op. this is here only for interface compatibility
Returns : undef
Args : none
=head2 cursor
Title : cursor
Usage : $obj->cursor($newval)
Function: holds position in reference collection
Returns : value of cursor (a scalar)
Args : on set, new value (a scalar or undef, optional)
=head2 twig
Title : twig
Bio-Chado-Schema
view release on metacpan or search on metacpan
doc/slides/dbic_intro/slides/ui/pretty.css view on Meta::CPAN
#footer>div#controls {position: fixed; bottom: 0; padding: 2em 0;
top: auto; height: auto;}
div#controls form {position: absolute; bottom: 0; right: 0; width: 100%;
margin: 0; padding: 0;}
div#controls a {font-size: 2em; padding: 0; margin: 0 0.5em; border: none; color: #f3f3f3;
cursor: pointer;}
div#controls a:hover {color: #f3f3f3;}
div#controls select {visibility: hidden; background: #f3f3f3; color: #333;}
div#controls div:hover select {visibility: visible;}
#toggle, #prev, #next {
Bio-Cluster
view release on metacpan or search on metacpan
t/data/sequencefamily.dat view on Meta::CPAN
ID ACON_CAEEL STANDARD; PRT; 788 AA.
AC P34455;
DT 01-FEB-1994 (Rel. 28, Created)
DT 01-FEB-1994 (Rel. 28, Last sequence update)
DT 15-JUL-1999 (Rel. 38, Last annotation update)
DE Probable aconitate hydratase, mitochondrial precursor (EC 4.2.1.3)
DE (Citrate hydro-lyase) (Aconitase).
GN F54H12.1.
OS Caenorhabditis elegans.
OC Eukaryota; Metazoa; Nematoda; Chromadorea; Rhabditida; Rhabditoidea;
OC Rhabditidae; Peloderinae; Caenorhabditis.
Bio-Community
view release on metacpan or search on metacpan
lib/Bio/Community/IO/FormatGuesser.pm view on Meta::CPAN
$format = (keys %ok_formats)[0];
}
# Cleanup
if ($in->noclose) {
# Reset filehandle cursor to original location
seek($self->fh, $original_pos, 0)
or $self->throw("Could not reset the cursor to its original position: $!");
}
$in->close;
return $format;
}
Bio-ConnectDots
view release on metacpan or search on metacpan
lib/Bio/ConnectDots/DB.pm view on Meta::CPAN
use Bio::ConnectDots::ConnectorSet;
@ISA = qw(Class::AutoClass);
@AUTO_ATTRIBUTES=qw(dsn dbh dbd database host port user password
read_only read_only_schema
_needs_disconnect _db_cursor _exists
load_name load_save load_chunksize load_cid_base
_ext_directory _load_fh _load_count _load_chunk sql_log
);
@OTHER_ATTRIBUTES=qw(ext_directory);
%SYNONYMS=(server=>'host');
( run in 0.586 second using v1.01-cache-2.11-cpan-a5abf4f5562 )