view release on metacpan or search on metacpan
t/00-report-prereqs.t
t/01-rx.t
t/01-tx.t
t/02-w800.t
t/author-critic.t
t/author-test-eol.t
t/release-common_spelling.t
t/release-kwalitee.t
t/release-no-tabs.t
t/release-pod-coverage.t
t/release-pod-linkcheck.t
view release on metacpan or search on metacpan
README
example/simplest.pl
example/synopsis.pl
lib/AnyEvent/RabbitMQ/Simple.pm
t/00-compile.t
xt/author/eol.t
xt/author/no-tabs.t
xt/release/kwalitee.t
xt/release/pod-coverage.t
xt/release/pod-syntax.t
view release on metacpan or search on metacpan
lib/AnyEvent/Redis/RipeRedis.pm view on Meta::CPAN
$reply = $self->{encoding}->decode( $reply );
}
undef $str_len;
}
else {
my $eol_pos = index( $handle->{rbuf}, EOL );
if ( $eol_pos < 0 ) {
return;
}
$reply = substr( $handle->{rbuf}, 0, $eol_pos, '' );
my $type = substr( $reply, 0, 1, '' );
substr( $handle->{rbuf}, 0, EOL_LEN, '' );
if ( $type ne '+' && $type ne ':' ) {
if ( $type eq '$' ) {
view release on metacpan or search on metacpan
lib/AnyEvent/RipeRedis.pm view on Meta::CPAN
}
undef $str_len;
}
else {
my $eol_pos = index( $handle->{rbuf}, EOL );
if ( $eol_pos < 0 ) {
return;
}
$reply = substr( $handle->{rbuf}, 0, $eol_pos, '' );
my $type = substr( $reply, 0, 1, '' );
substr( $handle->{rbuf}, 0, EOL_LENGTH, '' );
if ( $type ne '+' && $type ne ':' ) {
if ( $type eq '$' ) {
view release on metacpan or search on metacpan
lib/AnyEvent/STOMP/Client.pm view on Meta::CPAN
sub read_frame {
my $self = shift;
$self->{handle}->unshift_read(
line => sub {
my ($handle, $command, $eol) = @_;
$self->reset_server_heartbeat_timer;
if ($command =~ /^(CONNECTED|MESSAGE|RECEIPT|ERROR)$/) {
$command = $1;
view release on metacpan or search on metacpan
debian/watch
dist.ini
lib/AnyEvent/SerialPort.pm
t/01-simple.t
t/author-critic.t
t/author-test-eol.t
t/lib/Device/SerialPort.pm
t/release-common_spelling.t
t/release-kwalitee.t
t/release-no-tabs.t
t/release-pod-coverage.t
view release on metacpan or search on metacpan
lib/AnyEvent/Subprocess/Job/Delegate/MonitorHandle.pm view on Meta::CPAN
my $handle = $run->delegate($self->handle)->handle;
if($self->when eq 'Line'){
my $reader; $reader = sub {
my ($h, $l, $eol) = @_;
$self->_run_callbacks($l, $eol);
$h->push_read(line => $reader);
};
$handle->push_read(line => $reader);
}
else {
view release on metacpan or search on metacpan
t/00use.t
t/01basic.t
t/02input.t
t/03output.t
t/04timer.t
xt/release/eol.t
xt/release/kwalitee.t
xt/release/no-tabs.t
xt/release/pod-syntax.t
xt/release/portability.t
view release on metacpan or search on metacpan
t/lib/Test2/Tools/WebSocket/Server.pm
t/mojo.t
t/mojo_echo.t
t/mojo_receive.t
xt/author/critic.t
xt/author/eol.t
xt/author/no_tabs.t
xt/author/pod.t
xt/author/pod_coverage.t
xt/author/pod_spelling_common.t
xt/author/pod_spelling_system.t
view release on metacpan or search on metacpan
MP3/L10N/fr.pm view on Meta::CPAN
sub language_tag {__PACKAGE__->SUPER::language_tag}
# Translators, in no particular order:
# lucst@sympatico.ca
# william@netymology.com
# leolo@pied.nu
# sburke@cpan.org
#
# [If you are using this module as a template for another language,
# delete the above addresses and put in your own.]
view release on metacpan or search on metacpan
lib/Apache/SdnFw/lib/Core.pm view on Meta::CPAN
while ($text=~ m/( (?!")[^,\r\n]* # Handle normal fields
| "(?:["\\]"|[^"])*?" # Handle quoted fields, escaped quotes as "" or \"
)(\r?\n|,|$)
/sgx) {
my $val = defined $1 ? $1 : '';
my $eol = $2;
if ($val =~ m/^"(.*)"$/s) {
$val = defined $1 ? $1 : '';
$val =~ s/["\\]"/"/sg;
}
push @{$row}, $val;
if ((!$eol || $eol ne ',') && scalar(@{$row}) > 0) {
push @rows, $row;
$row = [];
last if ($onerow);
}
last unless($eol);
}
if ($onerow) {
return @{$rows[0]};
}
view release on metacpan or search on metacpan
t/02-sessionx.t
weaver.ini
xt/author/critic.t
xt/author/cve.t
xt/author/eof.t
xt/author/eol.t
xt/author/minimum-version.t
xt/author/mojibake.t
xt/author/no-tabs.t
xt/author/pod-coverage.t
xt/author/pod-linkcheck.t
view release on metacpan or search on metacpan
lib/Apache/TestClient.pm view on Meta::CPAN
method => $method,
code => -1, # unknown
};
my($response_line, $header_term);
my $eol = "\015?\012";
local $_;
while (<$s>) {
$res->{headers_as_string} .= $_;
if (m:^(HTTP/\d+\.\d+)[ \t]+(\d+)[ \t]*(.*?)$eol:io) {
$res->{protocol} = $1;
$res->{code} = $2;
$res->{message} = $3;
$response_line = 1;
}
elsif (/^([a-zA-Z0-9_\-]+)\s*:\s*(.*?)$eol/o) {
$res->{headers}->{lc $1} = $2;
}
elsif (/^$eol$/o) {
$header_term = 1;
last;
}
}
view release on metacpan or search on metacpan
Wyrd/Site/NavPull.pm view on Meta::CPAN
is specified in the body of the NavPull.
NOTE: There is some support for multiple parentage. If a page declares two
parents (separated by commas), the decision as to how to draw the tree
depends on the referrer field of the HTTP request. If it indicates one of
the ancestors of the page up one geneology, the navigation tree is drawn to
reflect that branch, not the other(s). Multiple parents must belong in the
same section, however, and there can be no circular relationships between
parents.
=head2 HTML ATTRIBUTES
Wyrd/Site/NavPull.pm view on Meta::CPAN
$self->_debug('parental path is:' . join(':', @path));
return @path;
}
if ($found->{$this_node}++) {
$self->_error(
"Circular geneology for "
. $path[0]
. " detected between: "
. join(', ', sort keys %$found)
. ". Backing out..."
);
Wyrd/Site/NavPull.pm view on Meta::CPAN
push @path, $this_node unless ($first);#don't include self
@path = $self->_get_path($parent, $found, @path);
return @path if (@path);
}
$self->_warn(
"Could not resolve a geneology of $this_node."
) if ($first);
return ();
}
sub _get_section_root {
view release on metacpan or search on metacpan
t/perl-bin/css.pl
t/perl-bin/plain.pl
t/registry.t
xt/author/clean-namespaces.t
xt/author/distmeta.t
xt/author/eol.t
xt/author/minimum-version.t
xt/author/no-breakpoints.t
xt/author/no-tabs.t
xt/author/pod-coverage.t
xt/author/pod-spell.t
view release on metacpan or search on metacpan
t/pod-coverage.t
t/pod.t
t/registry.t
xt/author/clean-namespaces.t
xt/author/distmeta.t
xt/author/eol.t
xt/author/minimum-version.t
xt/author/no-breakpoints.t
xt/author/no-tabs.t
xt/author/pod-coverage.t
xt/author/pod-spell.t
view release on metacpan or search on metacpan
t/htdocs/layered/noargs/noargs.php
t/htdocs/product.html
t/htdocs/promotions.html
t/lib/Test/Apache2/Layer/MapStorage.pm
t/lib/Test/Apache2/Layer/RemoveArgs.pm
t/release-eol.t
t/release-kwalitee.t
t/release-no-tabs.t
t/release-pod-coverage.t
t/release-pod-syntax.t
t/release-portability.t
view release on metacpan or search on metacpan
examples/expand.pl
lib/ApacheLog/Compressor.pm
t/00-compile.t
t/00-pod.t
t/00-use.t
t/author-test-eol.t
t/compress.t
t/release-mojibake.t
t/release-pod-coverage.t
t/release-pod-linkcheck.t
t/release-pod-syntax.t
view release on metacpan or search on metacpan
t/00-report-prereqs.t
t/basic.t
t/rc/.perlcriticrc
t/rc/.perltidyrc
xt/author/critic.t
xt/author/eol.t
xt/author/mojibake.t
xt/author/pod-coverage.t
xt/author/pod-syntax.t
xt/author/synopsis.t
xt/author/test-version.t
view release on metacpan or search on metacpan
lib/App/BPOMUtils/Table/FoodCategory.pm view on Meta::CPAN
"Tidak Aktif",
],
[
"0402020102",
"Buncis Beku",
"Buncis beku adalah produk sayur beku yang diperoleh dari polong buncis (Phaseolus vulgaris L.) yang segar, bersih, sehat, tanpa tangkai, dicuci dan diblansir untuk mempertahankan warna dan flavor selama penyimpanan.",
"Tidak Aktif",
],
[
"0402020103",
"Kacang Kapri Beku",
lib/App/BPOMUtils/Table/FoodCategory.pm view on Meta::CPAN
"Tidak Aktif",
],
[
"0402020207",
"Kacang Kering dan Polong Kacang Kering",
"Kacang kering dan polong kacang kering adalah produk kering yang<br> diperoleh dari biji tanaman leguminosa yang dibedakan dari biji<br> leguminosa sumber minyak berdasarkan kadar minyaknya yang<br> rendah. Polong kacang adalah bagian dari kacan...
"Tidak Aktif",
],
[
"0402020208",
"Biji Bunga Matahari",
lib/App/BPOMUtils/Table/FoodCategory.pm view on Meta::CPAN
"Aktif",
],
[
"0402020409",
"Buncis Dalam Kemasan",
"Buncis dalam kemasan adalah produk buncis yang diperoleh dari<br> polong buncis segar (Phaseolus vulgaris) tanpa batang dan<br> tangkainya, yang dimasukkan ke dalam medium, dan disterilkan<br> dengan pemanasan. Medium yang digunakan adalah air a...
"Aktif",
],
[
"0402020410",
"Manisan Rumput Laut Dalam Kemasan",
lib/App/BPOMUtils/Table/FoodCategory.pm view on Meta::CPAN
"Aktif",
],
[
"06020105",
"Tepung Kacang Hijau Utuh",
"Tepung kacang hijau utuh adalah tepung yang diperoleh dari penggilingan atau penumbukan biji tanaman kacang hijau (Phaseolus radiatus L.) yang belum dihilangkan kulitnya.",
"Aktif",
],
[
"06020106",
"Tepung Kacang Merah",
lib/App/BPOMUtils/Table/FoodCategory.pm view on Meta::CPAN
"Aktif",
],
[
"06020204",
"Pati Kacang Hijau/Hunkwee",
"Pati kacang hijau atau hunkwee adalah pati yang diperoleh dari kacang hijau (Phaseolusradiatus).",
"Aktif",
],
[
"06020205",
"Tapioka/Pati Singkong/Pati Ubi Kayu",
lib/App/BPOMUtils/Table/FoodCategory.pm view on Meta::CPAN
"Tidak Aktif",
],
[
12020118,
"Biji Seledri",
"Biji seledri adalah biji kering dari tanaman Apium graveolens.",
"Tidak Aktif",
],
[
12020119,
"Biji Sawi/Biji Mustard",
lib/App/BPOMUtils/Table/FoodCategory.pm view on Meta::CPAN
"Tidak Aktif",
],
[
12020128,
"Biji Dill (Dill Seed), Adas Manis, Adas Sowa, Adas Cina, Ender",
"Biji dill (dill seed), adas manis, adas sowa, adas cina, ender adalah produk yang diperoleh dari buah tanaman Anethum graveolens yang telah dikeringkan.",
"Tidak Aktif",
],
[
12020133,
"Fenugreek, Kelabat, Kelabet, Klabat",
view release on metacpan or search on metacpan
lib/App/BPOMUtils/Table/FoodIngredient.pm view on Meta::CPAN
"NO",
"YES",
],
[
517,
"Pedada (Sonneratia caseolaris)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
lib/App/BPOMUtils/Table/FoodIngredient.pm view on Meta::CPAN
"NO",
"YES",
],
[
1801,
"Kacang Flageolet (Flageolet Bean)",
"Bahan Baku",
"NO",
"NO",
"NO",
"NO",
lib/App/BPOMUtils/Table/FoodIngredient.pm view on Meta::CPAN
"NO",
"NO",
],
[
2259,
"Daun Apple Mint (Mentha suaveolens Ehrh)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
view release on metacpan or search on metacpan
lib/App/BPOMUtils/Table/FoodCategory.pm view on Meta::CPAN
"Tidak Aktif",
],
[
"0402020102",
"Buncis Beku",
"Buncis beku adalah produk sayur beku yang diperoleh dari polong buncis (Phaseolus vulgaris L.) yang segar, bersih, sehat, tanpa tangkai, dicuci dan diblansir untuk mempertahankan warna dan flavor selama penyimpanan.",
"Tidak Aktif",
],
[
"0402020103",
"Kacang Kapri Beku",
lib/App/BPOMUtils/Table/FoodCategory.pm view on Meta::CPAN
"Tidak Aktif",
],
[
"0402020207",
"Kacang Kering dan Polong Kacang Kering",
"Kacang kering dan polong kacang kering adalah produk kering yang<br> diperoleh dari biji tanaman leguminosa yang dibedakan dari biji<br> leguminosa sumber minyak berdasarkan kadar minyaknya yang<br> rendah. Polong kacang adalah bagian dari kacan...
"Tidak Aktif",
],
[
"0402020208",
"Biji Bunga Matahari",
lib/App/BPOMUtils/Table/FoodCategory.pm view on Meta::CPAN
"Aktif",
],
[
"0402020409",
"Buncis Dalam Kemasan",
"Buncis dalam kemasan adalah produk buncis yang diperoleh dari<br> polong buncis segar (Phaseolus vulgaris) tanpa batang dan<br> tangkainya, yang dimasukkan ke dalam medium, dan disterilkan<br> dengan pemanasan. Medium yang digunakan adalah air a...
"Aktif",
],
[
"0402020410",
"Manisan Rumput Laut Dalam Kemasan",
lib/App/BPOMUtils/Table/FoodCategory.pm view on Meta::CPAN
"Aktif",
],
[
"06020105",
"Tepung Kacang Hijau Utuh",
"Tepung kacang hijau utuh adalah tepung yang diperoleh dari penggilingan atau penumbukan biji tanaman kacang hijau (Phaseolus radiatus L.) yang belum dihilangkan kulitnya.",
"Aktif",
],
[
"06020106",
"Tepung Kacang Merah",
lib/App/BPOMUtils/Table/FoodCategory.pm view on Meta::CPAN
"Aktif",
],
[
"06020204",
"Pati Kacang Hijau/Hunkwee",
"Pati kacang hijau atau hunkwee adalah pati yang diperoleh dari kacang hijau (Phaseolusradiatus).",
"Aktif",
],
[
"06020205",
"Tapioka/Pati Singkong/Pati Ubi Kayu",
lib/App/BPOMUtils/Table/FoodCategory.pm view on Meta::CPAN
"Tidak Aktif",
],
[
12020118,
"Biji Seledri",
"Biji seledri adalah biji kering dari tanaman Apium graveolens.",
"Tidak Aktif",
],
[
12020119,
"Biji Sawi/Biji Mustard",
lib/App/BPOMUtils/Table/FoodCategory.pm view on Meta::CPAN
"Tidak Aktif",
],
[
12020128,
"Biji Dill (Dill Seed), Adas Manis, Adas Sowa, Adas Cina, Ender",
"Biji dill (dill seed), adas manis, adas sowa, adas cina, ender adalah produk yang diperoleh dari buah tanaman Anethum graveolens yang telah dikeringkan.",
"Tidak Aktif",
],
[
12020133,
"Fenugreek, Kelabat, Kelabet, Klabat",
view release on metacpan or search on metacpan
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
"Tidak Aktif",
],
[
"0402020102",
"Buncis Beku",
"Buncis beku adalah produk sayur beku yang diperoleh dari polong buncis (Phaseolus vulgaris L.) yang segar, bersih, sehat, tanpa tangkai, dicuci dan diblansir untuk mempertahankan warna dan flavor selama penyimpanan.",
"Tidak Aktif",
],
[
"0402020103",
"Kacang Kapri Beku",
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
"Tidak Aktif",
],
[
"0402020207",
"Kacang Kering dan Polong Kacang Kering",
"Kacang kering dan polong kacang kering adalah produk kering yang<br> diperoleh dari biji tanaman leguminosa yang dibedakan dari biji<br> leguminosa sumber minyak berdasarkan kadar minyaknya yang<br> rendah. Polong kacang adalah bagian dari kacan...
"Tidak Aktif",
],
[
"0402020208",
"Biji Bunga Matahari",
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
"Aktif",
],
[
"0402020409",
"Buncis Dalam Kemasan",
"Buncis dalam kemasan adalah produk buncis yang diperoleh dari<br> polong buncis segar (Phaseolus vulgaris) tanpa batang dan<br> tangkainya, yang dimasukkan ke dalam medium, dan disterilkan<br> dengan pemanasan. Medium yang digunakan adalah air a...
"Aktif",
],
[
"0402020410",
"Manisan Rumput Laut Dalam Kemasan",
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
"Aktif",
],
[
"06020105",
"Tepung Kacang Hijau Utuh",
"Tepung kacang hijau utuh adalah tepung yang diperoleh dari penggilingan atau penumbukan biji tanaman kacang hijau (Phaseolus radiatus L.) yang belum dihilangkan kulitnya.",
"Aktif",
],
[
"06020106",
"Tepung Kacang Merah",
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
"Aktif",
],
[
"06020204",
"Pati Kacang Hijau/Hunkwee",
"Pati kacang hijau atau hunkwee adalah pati yang diperoleh dari kacang hijau (Phaseolusradiatus).",
"Aktif",
],
[
"06020205",
"Tapioka/Pati Singkong/Pati Ubi Kayu",
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
"Tidak Aktif",
],
[
12020118,
"Biji Seledri",
"Biji seledri adalah biji kering dari tanaman Apium graveolens.",
"Tidak Aktif",
],
[
12020119,
"Biji Sawi/Biji Mustard",
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
"Tidak Aktif",
],
[
12020128,
"Biji Dill (Dill Seed), Adas Manis, Adas Sowa, Adas Cina, Ender",
"Biji dill (dill seed), adas manis, adas sowa, adas cina, ender adalah produk yang diperoleh dari buah tanaman Anethum graveolens yang telah dikeringkan.",
"Tidak Aktif",
],
[
12020133,
"Fenugreek, Kelabat, Kelabet, Klabat",
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
"NO",
"YES",
],
[
517,
"Pedada (Sonneratia caseolaris)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
"NO",
"YES",
],
[
1801,
"Kacang Flageolet (Flageolet Bean)",
"Bahan Baku",
"NO",
"NO",
"NO",
"NO",
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
"NO",
"NO",
],
[
2259,
"Daun Apple Mint (Mentha suaveolens Ehrh)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
view release on metacpan or search on metacpan
t/rc/perlcriticrc
t/rc/perltidyrc
t/script.t
xt/author/critic.t
xt/author/distmeta.t
xt/author/eol.t
xt/author/minimum-version.t
xt/author/mojibake.t
xt/author/no-tabs.t
xt/author/pod-syntax.t
xt/author/portability.t
view release on metacpan or search on metacpan
lib/App/BatParser.pm view on Meta::CPAN
=over 4
=item *
eva.dominguez <eva.dominguez@meteologica.com>
=item *
juanradiego <kilaweo@gmail.com>
view release on metacpan or search on metacpan
lib/App/BoolFindGrep/Grep.pm
t/00-compile.t
t/app-boolfindgrep-bool.t
t/app-boolfindgrep-grep.t
t/app-boolfindgrep.t
xt/author/eol.t
xt/author/no-tabs.t
xt/release/cpan-changes.t
xt/release/dist-manifest.t
xt/release/distmeta.t
xt/release/kwalitee.t
view release on metacpan or search on metacpan
README
bin/bootstrap-perl
dist.ini
lib/App/Bootstrap/Perl.pm
t/00-compile.t
t/author-eol.t
t/author-no-tabs.t
t/author-pod-syntax.t
t/basic.t
t/release-pod-coverage.t
xt/caller_line.t
view release on metacpan or search on metacpan
lib/App/CCSV.pm view on Meta::CPAN
}
sub _init
{
my $out = length($_[-1] || '') > 1 && $#_ > 0 ? pop : ''; # last argument length > 1 means csvout config section if more than 1 argument
my ($quote,$sep,$escape,$eol) = @_;
#print join "|", ($quote, $sep, $escape, $eol,"\n");
my $cfgfile = $ENV{CCSVCONF} || $ENV{HOME} || '~';
$cfgfile = $cfgfile . '/.CCSVConf' unless $ENV{CCSVCONF};
if (length($quote || '') <= 1) # length > 1 specifies config section
{
$csv = Text::CSV_XS->new( {
quote_char => $quote || '"',
sep_char => $sep || ',',
escape_char => $escape || '"',
eol => $eol || '',
binary => 1,
} );
} else
{
$csv = Text::CSV_XS->new(); # config later from cfgfile
lib/App/CCSV.pm view on Meta::CPAN
Text::CSV_XS->new( {
quote_char => '"',
sep_char => ',',
escape_char '"',
eol => '',
binary => 1,
} );
Note that these are slightly different from the L<Text::CSV_XS> defaults.
lib/App/CCSV.pm view on Meta::CPAN
=head1 CONFIGURATION
You can configure CSV quote char, separator, escape char and end of line char by passing them directly to the module, like this:
:~$ perl -MApp::CCSV=<quote char>,<sep char>,<escape char>,<eol char> -ne 'print @f' < some.csv
Note that these are really limited to one character. More than one character would mean a config section in the config file (more about the config file in a moment).
If you don't specify any options, the defaults shown under "EXPORTS" will be used.
view release on metacpan or search on metacpan
t/run-tcm.t
test-vars-ignore
tidyall.ini
xt/author/00-compile.t
xt/author/clean-namespaces.t
xt/author/eol.t
xt/author/mojibake.t
xt/author/no-tabs.t
xt/author/pod-spell.t
xt/author/pod-syntax.t
xt/author/portability.t