view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
CAB/Utils.pm view on Meta::CPAN
## $decoded = deep_decode($encoding,$thingy,%options)
## + %options:
## force => $bool, ##-- decode even if the utf8 flag is set
## skipvals => \@vals, ##-- don't decode (or recurse into) $val (overrides $force)
## skiprefs => \@refs, ##-- don't decode (or recurse into) $$ref (overrides $force)
## skippkgs => \@pkgs, ##-- don't decode (or recurse into) anything of package $pkg (overrides $force)
sub deep_decode {
my ($enc,$thingy,%opts) = @_;
my %skipvals = defined($opts{skipvals}) ? (map {($_=>undef)} @{$opts{skipvals}}) : qw();
my %skiprefs = defined($opts{skiprefs}) ? (map {($_=>undef)} @{$opts{skiprefs}}) : qw();
my %skippkgs = defined($opts{skippkgs}) ? (map {($_=>undef)} @{$opts{skippkgs}}) : qw();
my $force = $opts{force};
my @queue = (\$thingy);
my ($ar);
while (defined($ar=shift(@queue))) {
if (exists($skiprefs{$ar}) || exists($skipvals{$$ar}) || (ref($$ar) && exists($skippkgs{ref($$ar)}))) {
next;
} elsif (UNIVERSAL::isa($$ar,'ARRAY')) {
push(@queue, map { \$_ } @{$$ar});
} elsif (UNIVERSAL::isa($$ar,'HASH')) {
push(@queue, map { \$_ } values %{$$ar});
CAB/Utils.pm view on Meta::CPAN
## $encoded = deep_encode($encoding,$thingy,%opts)
## + %opts:
## force => $bool, ##-- encode even if the utf8 flag is NOT set
## skipvals => \@vals, ##-- don't encode (or recurse into) $val (overrides $force)
## skiprefs => \@refs, ##-- don't encode (or recurse into) $$ref (overrides $force)
## skippkgs => \@pkgs, ##-- don't encode (or recurse into) anything of package $pkg (overrides $force)
sub deep_encode {
my ($enc,$thingy,%opts) = @_;
my %skipvals = defined($opts{skipvals}) ? (map {($_=>undef)} @{$opts{skipvals}}) : qw();
my %skiprefs = defined($opts{skiprefs}) ? (map {($_=>undef)} @{$opts{skiprefs}}) : qw();
my %skippkgs = defined($opts{skippkgs}) ? (map {($_=>undef)} @{$opts{skippkgs}}) : qw();
my $force = $opts{force};
my @queue = (\$thingy);
my ($ar);
while (defined($ar=shift(@queue))) {
if (exists($skiprefs{$ar}) || !defined($$ar) || exists($skipvals{$$ar}) || (ref($$ar) && exists($skippkgs{ref($$ar)}))) {
next;
} elsif (UNIVERSAL::isa($$ar,'ARRAY')) {
push(@queue, map { \$_ } @{$$ar});
} elsif (UNIVERSAL::isa($$ar,'HASH')) {
push(@queue, map { \$_ } values %{$$ar});
CAB/Utils.pm view on Meta::CPAN
%options:
force => $bool, ##-- decode even if the utf8 flag is set
skipvals => \@vals, ##-- don't decode (or recurse into) $val (overrides $force)
skiprefs => \@refs, ##-- don't decode (or recurse into) $$ref (overrides $force)
skippkgs => \@pkgs, ##-- don't decode (or recurse into) anything of package $pkg (overrides $force)
=item deep_encode
CAB/Utils.pm view on Meta::CPAN
%opts:
force => $bool, ##-- encode even if the utf8 flag is NOT set
skipvals => \@vals, ##-- don't encode (or recurse into) $val (overrides $force)
skiprefs => \@refs, ##-- don't encode (or recurse into) $$ref (overrides $force)
skippkgs => \@pkgs, ##-- don't encode (or recurse into) anything of package $pkg (overrides $force)
=item deep_recode
$recoded = deep_recode($from,$to,$thingy, %opts);
view release on metacpan or search on metacpan
darcs-notify view on Meta::CPAN
just compares the current list of patches against it's stored set it
can run any time. If there is nothing to report, nothing will happen.
However, typical usage is to install it into your darcs repo's post
hooks so that it runs automatically when someone pushes, pulls, or
unpulls some patches. To do this, edit your F<_darcs/prefs/defaults>
file (you might need to create it if it's not there already) and add
the following lines:
apply posthook darcs-notify <email>
apply run-posthook
darcs-notify view on Meta::CPAN
That assumes B<darcs-notify> is in your path. If it is not, then put
its absolute path there. One technique is to place darcs-notify inside
the F<_darcs/third-party/darcs-notify> directory (you might need to create it if
you haven't run darcs-notify yet) and then use its relative path in
the F<_darcs/prefs/defaults> file:
apply posthook _darcs/third-party/darcs-notify/darcs-notify <email>
apply run-posthook
pull posthook _darcs/third-party/darcs-notify/darcs-notify <email>
pull run-posthook
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
lib/Data/Dumper/Compact.pm view on Meta::CPAN
Default: C<[]>
=head2 dumper
The dumper function to be used for dumping things DDC doesn't understand,
such as coderefs, regexprefs, etc.
Defaults to the same options as L<Data::Dumper::Concise> (which is, itself,
only a L<Data::Dumper> configuration albeit it comes with L<Devel::Dwarn>
which is rather more interesting) - although on top of that we add a little
bit of extra cleverness to make L<B::Deparse> use the correct indentation,
view release on metacpan or search on metacpan
lib/Data/Dumper/EasyOO.pm view on Meta::CPAN
my $_privatePrinter; # visible only to new and closure object it makes
sub new {
my ($cls, %cfg) = @_;
my $prefs = $cliPrefs{caller()} || {};
my $ddo = Data::Dumper->new([]); # inner obj w bogus data
Set($ddo, %$prefs, %cfg); # ctor-params override pkg-config
#print "EzDD::new() ", Data::Dumper::Dumper [$prefs, \%cfg];
my $code = sub { # closure on $ddo
&$_privatePrinter($ddo, @_);
};
# copy constructor
view release on metacpan or search on metacpan
lib/Data/Edit/Xml/Xref.pm view on Meta::CPAN
$t{$file}{$f}++;
}
}
}
for my $t(keys %t) # Eliminate bookmaprefs that are used only once
{if (keys (%{$t{$t}}) <= 1)
{delete $t{$t};
}
}
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
benchmarks/medium.pl view on Meta::CPAN
{
my $old = {
user => {
name => 'Nigel',
roles => [qw(admin editor)],
prefs => { theme => 'dark', tz => 'UTC' },
},
items => [ map { { id => $_, val => $_ * 2 } } 1..50 ],
};
my $new = {
user => {
name => 'N. Horne',
roles => [qw(admin editor reviewer)],
prefs => { theme => 'light', tz => 'UTC' },
},
items => [ map { { id => $_, val => $_ * 3 } } 1..50 ],
};
($old, $new);
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
ResultsHelper.pm view on Meta::CPAN
sub new {
my $type = shift;
my @PASSED_ARGS = (ref $_[0] eq 'HASH') ? %{$_[0]} : @_;
my @DEFAULT_ARGS = (
prefs => {},
prefix => 'rh',
back_text => 'back',
next_text => 'next',
ResultsHelper.pm view on Meta::CPAN
$ARGS{cookie_name} = "results_helper";
}
}
my $self = bless \%ARGS, $type;
my $prefs_defaults = {
at_a_time => 25,
start_number => 1,
sort_column => 0,
};
foreach my $key (qw(at_a_time start_number sort_column)) {
if(exists $self->{prefs}{$key}) {
next;
} elsif(exists $self->form->{$key}) {
$self->{prefs}{$key} = $self->form->{$key};
} elsif(exists $prefs_defaults->{$key}) {
$self->{prefs}{$key} = $prefs_defaults->{$key};
}
}
return $self;
}
ResultsHelper.pm view on Meta::CPAN
my $script_name = $self->script_name;
my $href = "$script_name?start_number=-start-$more_form_tack_on_string";
my $start;
for(my $i=1;$i<=$self->get_pages($self->rows);$i++) {
last if($self->toc_limit && $i > $self->toc_limit);
$start = 1 + $self->{prefs}{at_a_time} * ($i - 1);
my $tmp_href = $href;
$tmp_href =~ s/-start-/$start/;
push @{$ref->{$self->{prefix} . "_toc_page_text"}}, $i;
push @{$ref->{$self->{prefix} . "_toc_page_href"}}, $tmp_href;
}
ResultsHelper.pm view on Meta::CPAN
sub link_current_page {
my $self = shift;
my $ref = $self->{results_ref};
my $temp_page = int($self->{prefs}{start_number}/$self->{prefs}{at_a_time}) + 1;
my $temp_start_number = ($temp_page - 1) * $self->{prefs}{at_a_time} + 1;
$ref->{$self->{prefix} . "_toc_page_href"}[$temp_page - 1] = '';
}
sub link_back_button {
my $self = shift;
my $href = shift;
my $ref = $self->{results_ref};
my $start = $self->{prefs}{start_number} - $self->{prefs}{at_a_time};
### if this is the first page, don't link the back button
if($start < 1) {
$ref->{$self->{prefix} . "_toc_back_href"} = '';
} else {
ResultsHelper.pm view on Meta::CPAN
sub link_next_button {
my $self = shift;
my $href = shift;
my $ref = $self->{results_ref};
my $start = $self->{prefs}{start_number} + $self->{prefs}{at_a_time};
### if this is the last page, don't link the next button
if($start > $self->rows) {
$ref->{$self->{prefix} . "_toc_next_href"} = '';
} else {
ResultsHelper.pm view on Meta::CPAN
my $form_tack_on_string = $self->get_form_tack_on_string;
### do the table header row
unless ($self->{no_header}){
my $add_sort_column = ($self->{prefs}->{sort_column} =~ /^-?\d+(,[,\-\d]+)/) ? $1 : "";
foreach my $i (@{$ref->{"$self->{prefix}_show_cols"}}) {
next unless length($self->{results}[0][$i]);
# doing the toggle for the links
my $link = $self->script_name . "?";
if(!exists $self->{prefs}{sort_column}) {
$link .= "sort_column=$i$add_sort_column$form_tack_on_string";
} elsif($self->{prefs}->{sort_column} =~ /^\-$i\b/) {
$link .= "sort_column=$i$add_sort_column$form_tack_on_string";
} elsif($self->{prefs}->{sort_column} =~ /^\b$i\b/) {
$link .= "sort_column=-$i$add_sort_column$form_tack_on_string";
} else {
$link .= "sort_column=$i$add_sort_column$form_tack_on_string";
}
ResultsHelper.pm view on Meta::CPAN
}
$self->{sort_code} = $tmp;
}
my $rows = $self->rows;
if(( exists $self->{prefs}{sort_column}) && $self->{prefs}{sort_column} =~ /^[0-9,\-]+$/) {
# the 1 signifies there is a header row
require Sort::ArrayOfArrays;
$self->{results} = Sort::ArrayOfArrays::sort_it($self->{results}, $self->{prefs}->{sort_column}, $self->{sort_code}, 1);
}
}
sub retrieve_results {
my $self = shift;
ResultsHelper.pm view on Meta::CPAN
}
sub get_pages {
my $self = shift;
my $rows = shift || $self->rows;
my $pages = int($rows / $self->{prefs}->{at_a_time}) + 1;
$pages-- unless($rows % $self->{prefs}->{at_a_time});
return $pages;
}
sub low {
my $self = shift;
return $self->{prefs}{start_number};
}
sub high {
my $self = shift;
my $rows = shift || $self->rows;
return ($self->{prefs}->{start_number} + $self->{prefs}->{at_a_time} - 1 > $rows)
? $rows : $self->{prefs}->{start_number} + $self->{prefs}->{at_a_time} - 1;
}
sub get_values {
my $values=shift;
return () unless defined $values;
ResultsHelper.pm view on Meta::CPAN
}
sub get_form_tack_on_string {
my $self = shift;
my $form_tack_on_string = '';
my %hash = (%{$self->form}, %{$self->{prefs}});
while(my ($key, $value) = each %hash) {
next if(!$value || $key eq 'sort_column' || $key eq 'start_number');
foreach(get_values($value)) {
$form_tack_on_string .= "&" . URLEncode($key) . "=" . URLEncode($_);
}
ResultsHelper.pm view on Meta::CPAN
sub more_form_tack_on_string {
my $self = shift;
my $more_form_tack_on_string = $self->get_form_tack_on_string || "";
foreach (qw(sort_column) ){
$more_form_tack_on_string .= "&$_=$self->{prefs}->{$_}" if(exists $self->{prefs}{$_});
}
return $more_form_tack_on_string;
}
sub URLEncode {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
Sophia-src/db/core.h view on Meta::CPAN
uint64_t psn; /* page sequence number */
spcat s;
spbatch lb; /* log batch related */
volatile int stop;
sptask merger;
sprefset refs; /* pre allocated key buffer (page merge) */
spfile lockdb; /* per-process database lock */
int lockc; /* incremental cursor lock */
spspinlock lockr; /* repository lock */
spspinlock locks; /* space lock */
spspinlock locki; /* index lock */
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
.cvsignore
.includepath
.project
.settings/org.eclipse.core.resources.prefs
Build.PL
Changes
inc/DefaultMap.pm
java/AllTZ.class
java/AllTZ.java
view release on metacpan or search on metacpan
patches/Distribution.pm.patch view on Meta::CPAN
diff -Naur orig/CPAN/Distribution.pm new/CPAN/Distribution.pm
--- orig/CPAN/Distribution.pm 2009-11-21 20:30:05.000000000 +0100
+++ new/CPAN/Distribution.pm 2009-12-01 13:40:17.000000000 +0100
@@ -3,6 +3,8 @@
use Cwd qw(chdir);
use CPAN::Distroprefs;
use CPAN::InfoObj;
+use Debian::Apt::PM;
+our $aptpm = Debian::Apt::PM->new();
@CPAN::Distribution::ISA = qw(CPAN::InfoObj);
use vars qw($VERSION);
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {