Result:
found more than 576 distributions - search limited to the first 2001 files matching your query
( run in 1.260 )
App-CCSV
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.
App-CISetup
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
App-CPRReporter
view release on metacpan or search on metacpan
bin/cpr_report.pl
lib/App/CPRReporter.pm
t/01-basic.t
t/author-critic.t
t/release-common_spelling.t
t/release-eol.t
t/release-kwalitee.t
t/release-pod-coverage.t
t/release-pod-linkcheck.t
t/release-pod-no404s.t
t/release-pod-syntax.t
App-CSV
view release on metacpan or search on metacpan
lib/App/CSV.pm view on Meta::CPAN
our %TextCSVOptions = (
# name => [type, default, alias, @extra_opts]
quote_char => ['Str', '"', 'q'],
escape_char => ['Str', '"', 'e'],
sep_char => ['Str', ',', 's', is => 'rw'],
eol => ['Any', ''],
always_quote => ['Int', 0],
binary => ['Int', 1, 'b'],
keep_meta_info => ['Int', 0, 'k'],
allow_loose_quotes => ['Int', 0],
allow_loose_escapes => ['Int', 0],
App-CSV2Chart
view release on metacpan or search on metacpan
lib/App/CSV2Chart/API/ToXLSX.pm
lib/App/CSV2Chart/Command/svg.pm
lib/App/CSV2Chart/Command/xlsx.pm
t/00-compile.t
weaver.ini
xt/author/eol.t
xt/author/no-tabs.t
xt/author/pod-coverage.t
xt/author/pod-syntax.t
xt/author/tidyall.t
xt/release/cpan-changes.t
App-Cerberus-Plugin-ParseBrowser
view release on metacpan or search on metacpan
META.yml
Makefile.PL
README
dist.ini
lib/App/Cerberus/Plugin/ParseBrowser.pm
t/release-eol.t
t/release-no-tabs.t
t/release-pod-syntax.t
App-Cerberus-Plugin-Woothee
view release on metacpan or search on metacpan
META.yml
Makefile.PL
README
dist.ini
lib/App/Cerberus/Plugin/Woothee.pm
t/release-eol.t
t/release-no-tabs.t
t/release-pod-syntax.t
App-Cerberus-client
view release on metacpan or search on metacpan
META.yml
Makefile.PL
README
dist.ini
lib/App/Cerberus/Client.pm
t/release-eol.t
t/release-no-tabs.t
t/release-pod-syntax.t
App-Cerberus
view release on metacpan or search on metacpan
lib/App/Cerberus.pm view on Meta::CPAN
=head1 PLUGINS
=head2 L<App::Cerberus::Plugin::GeoIP>
Uses L<Geo::IP> with the L<GeoLite City database|http://www.maxmind.com/app/geolite>
to provide geo-location at the city level.
For instance:
"geo": {
App-Chart
view release on metacpan or search on metacpan
emacs/chartprog.el view on Meta::CPAN
(with-current-buffer "*chartprog-watchlist*"
(chartprog-save-row-col
(let ((inhibit-read-only t))
(dolist (elem lst) ;; elements (SYMBOL STR FACE)
(when (chartprog-watchlist-find (car elem))
(delete-region (point-at-bol) (point-at-eol))
(insert (propertize (cadr elem)
'chartprog-symbol (car elem)
'face (nth 2 elem)
'help-echo (nth 3 elem))))))))))
emacs/chartprog.el view on Meta::CPAN
(goto-char (point-min))
(while (let ((symbol (chartprog-watchlist-symbol)))
(when symbol
(push (cons symbol
(buffer-substring (point)
(1+ (point-at-eol))))
alst))
(= 0 (forward-line)))))
;; fill buffer, and use existing lines from alst
(let ((inhibit-read-only t))
emacs/chartprog.el view on Meta::CPAN
;; updates from the subprocess will come with an in-progress face, but
;; apply that here explicitly to have it show immediately
(if arg
(progn ;; one symbol
(let ((inhibit-read-only t))
(add-text-properties (point-at-bol) (point-at-eol)
(list 'face 'chartprog-in-progress)))
(chartprog-exec 'request-explicit (list (chartprog-watchlist-symbol))))
(progn ;; whole list
(let ((inhibit-read-only t))
(add-text-properties (point-min) (point-max)
App-ClusterSSH
view release on metacpan or search on metacpan
lib/App/ClusterSSH.pm view on Meta::CPAN
$self->config->{extra_cluster_file} || '' );
$self->cluster->get_tag_entries( split /,/,
$self->config->{extra_tag_file} || '' );
if ( defined $self->options->list ) {
my $eol = $self->options->quiet ? ' ' : $/;
my $tab = $self->options->quiet ? '' : "\t";
if ( !$self->options->list ) {
print( 'Available cluster tags:', $/ )
unless ( $self->options->quiet );
print $tab, $_, $eol
foreach ( sort( $self->cluster->list_tags ) );
my @external_clusters = $self->cluster->list_external_clusters;
if (@external_clusters) {
print( 'Available external command tags:', $/ )
unless ( $self->options->quiet );
print $tab, $_, $eol foreach ( sort(@external_clusters) );
print $/;
}
}
else {
print 'Tag resolved to hosts: ', $/
unless ( $self->options->quiet );
@servers = $self->resolve_names( $self->options->list );
foreach my $svr (@servers) {
print $tab, $svr, $eol;
}
print $/;
}
$self->debug(
App-Cmdline
view release on metacpan or search on metacpan
t/00-load.t
t/01-testapp.t
t/App/testapp.pm
t/author-critic.t
t/author-pod-spell.t
t/release-eol.t
t/release-no-tabs.t
t/release-pod-syntax.t
App-Codeowners
view release on metacpan or search on metacpan
lib/App/Codeowners/Formatter/CSV.pm view on Meta::CPAN
$options{sep} = $self->sep if $self->sep;
if ($options{sep} && $options{sep} eq ($options{quote} || '"')) {
die "Invalid separator value for CSV format.\n";
}
Text::CSV->new({binary => 1, eol => $/, %options});
} or die "Failed to construct Text::CSV object";
}
sub sep { $_[0]->{sep} || $_[0]->format }
App-ColorNamer
view release on metacpan or search on metacpan
lib/App/ColorNamer.pm view on Meta::CPAN
['1C1E13', 'Rangoon Green'],
['1C39BB', 'Persian Blue'],
['1C402E', 'Everglade'],
['1C7C7D', 'Elm'],
['1D6142', 'Green Pea'],
['1E0F04', 'Creole'],
['1E1609', 'Karaka'],
['1E1708', 'El Paso'],
['1E385B', 'Cello'],
['1E433C', 'Te Papa Green'],
['1E90FF', 'Dodger Blue'],
App-Config-Chronicle
view release on metacpan or search on metacpan
t/rc/perlcriticrc
t/rc/perltidyrc
t/test.yml
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
App-DBBrowser
view release on metacpan or search on metacpan
lib/App/DBBrowser/Options/Defaults.pm view on Meta::CPAN
auto_diag => 1, # not an option, always 1
sep_char => ',',
quote_char => '"',
escape_char => '"',
eol => '',
comment_str => '',
allow_loose_escapes => 0,
allow_loose_quotes => 0,
allow_whitespace => 0,
lib/App/DBBrowser/Options/Defaults.pm view on Meta::CPAN
auto_diag => 1, # not an option, always 1
sep_char => ',',
quote_char => '"',
escape_char => '"',
eol => '',
undef_str => '',
always_quote => 0,
binary => 1,
escape_null => 1,
App-DBCritic
view release on metacpan or search on metacpan
lib/App/DBCritic/PolicyType/Schema.pm
lib/App/DBCritic/Violation.pm
t/00-compile.t
t/000-report-versions.t
t/author-critic.t
t/author-eol.t
t/author-minimum-version.t
t/author-mojibake.t
t/author-no-tabs.t
t/author-pod-coverage.t
t/author-pod-linkcheck.t
App-DH
view release on metacpan or search on metacpan
t/corpus/ddl/_source/deploy/3/001-auto.yml
t/corpus/lib/MySchema.pm
t/corpus/lib/MySchema/Result/Kitten.pm
weaver.ini
xt/author/critic.t
xt/author/eol.t
xt/author/pod-coverage.t
xt/author/pod-syntax.t
xt/release/cpan-changes.t
xt/release/distmeta.t
xt/release/kwalitee.t
App-DPath
view release on metacpan or search on metacpan
dist.ini
lib/App/DPath.pm
t/00-compile.t
t/00-load.t
t/app_dpath.t
t/author-eol.t
t/author-no-tabs.t
t/author-pod-coverage.t
t/author-pod-syntax.t
t/example.yaml10
t/flatabledata.yaml
App-Deps-Verify
view release on metacpan or search on metacpan
lib/App/Deps/Verify/App/VerifyDeps/Command/plupdatetask.pm
lib/App/Deps/Verify/App/VerifyDeps/Command/py3list.pm
lib/App/Deps/Verify/App/VerifyDeps/Command/verify.pm
t/00-compile.t
weaver.ini
xt/author/eol.t
xt/author/no-tabs.t
xt/author/pod-coverage.t
xt/author/pod-syntax.t
xt/author/tidyall.t
xt/release/cpan-changes.t
App-Dest
view release on metacpan or search on metacpan
bin/dest
cpanfile
dist.ini
lib/App/Dest.pm
t/00-compile.t
t/author-eol.t
t/author-no-tabs.t
t/author-pod-coverage.t
t/author-pod-syntax.t
t/author-portability.t
t/author-synopsis.t
App-Dex
view release on metacpan or search on metacpan
scripts/dex view on Meta::CPAN
}
elsif ($style == YAML_FOLDED_SCALAR_STYLE) {
DEBUG and warn __PACKAGE__.':'.__LINE__.$".Data::Dumper->Dump([\$value], ['value']);
my @lines = split /\n/, $value, -1;
DEBUG and warn __PACKAGE__.':'.__LINE__.$".Data::Dumper->Dump([\@lines], ['lines']);
my $eol = 0;
my $indicators = '';
if ($value =~ m/\A\n* +/) {
$indicators .= $self->indent;
}
my $indent = $indent . ' ' x $self->indent;
if ($lines[-1] eq '') {
pop @lines;
$eol = 1;
}
else {
$indicators .= '-';
}
$value = ">$indicators\n";
scripts/dex view on Meta::CPAN
}
},
'FULLMAPVALUE_INLINE' => {
'ANCHOR' => {
'EOL' => {
'match' => 'cb_property_eol',
'new' => 'FULLNODE_ANCHOR'
},
'WS' => {
'DEFAULT' => {
'new' => 'NODETYPE_MAPVALUE_INLINE'
},
'TAG' => {
'EOL' => {
'match' => 'cb_property_eol',
'new' => 'FULLNODE_TAG_ANCHOR'
},
'WS' => {
'new' => 'NODETYPE_MAPVALUE_INLINE'
},
scripts/dex view on Meta::CPAN
'DEFAULT' => {
'new' => 'NODETYPE_MAPVALUE_INLINE'
},
'TAG' => {
'EOL' => {
'match' => 'cb_property_eol',
'new' => 'FULLNODE_TAG'
},
'WS' => {
'ANCHOR' => {
'EOL' => {
'match' => 'cb_property_eol',
'new' => 'FULLNODE_TAG_ANCHOR'
},
'WS' => {
'new' => 'NODETYPE_MAPVALUE_INLINE'
},
scripts/dex view on Meta::CPAN
}
},
'FULLNODE' => {
'ANCHOR' => {
'EOL' => {
'match' => 'cb_property_eol',
'new' => 'FULLNODE_ANCHOR'
},
'WS' => {
'DEFAULT' => {
'new' => 'NODETYPE_SCALAR_OR_MAP'
},
'TAG' => {
'EOL' => {
'match' => 'cb_property_eol',
'new' => 'FULLNODE_TAG_ANCHOR'
},
'WS' => {
'new' => 'NODETYPE_SCALAR_OR_MAP'
},
scripts/dex view on Meta::CPAN
'EOL' => {
'new' => 'FULLNODE'
},
'TAG' => {
'EOL' => {
'match' => 'cb_property_eol',
'new' => 'FULLNODE_TAG'
},
'WS' => {
'ANCHOR' => {
'EOL' => {
'match' => 'cb_property_eol',
'new' => 'FULLNODE_TAG_ANCHOR'
},
'WS' => {
'new' => 'NODETYPE_SCALAR_OR_MAP'
},
scripts/dex view on Meta::CPAN
'EOL' => {
'new' => 'FULLNODE_ANCHOR'
},
'TAG' => {
'EOL' => {
'match' => 'cb_property_eol',
'new' => 'FULLNODE_TAG_ANCHOR'
},
'WS' => {
'ANCHOR' => {
'WS' => {
scripts/dex view on Meta::CPAN
}
},
'FULLNODE_TAG' => {
'ANCHOR' => {
'EOL' => {
'match' => 'cb_property_eol',
'new' => 'FULLNODE_TAG_ANCHOR'
},
'WS' => {
'DEFAULT' => {
'new' => 'NODETYPE_SCALAR_OR_MAP'
scripts/dex view on Meta::CPAN
DEFAULT: { new: RULE_MAPKEY }
FULLNODE_ANCHOR:
TAG:
match: cb_tag
EOL: { match: cb_property_eol, new: FULLNODE_TAG_ANCHOR }
WS:
ANCHOR:
match: cb_anchor
WS: { new: NODETYPE_SCALAR_OR_MAP }
DEFAULT: { new: NODETYPE_SCALAR_OR_MAP }
scripts/dex view on Meta::CPAN
DEFAULT: { new: NODETYPE_NODE }
FULLNODE_TAG:
ANCHOR:
match: cb_anchor
EOL: { match: cb_property_eol, new: FULLNODE_TAG_ANCHOR }
WS:
TAG:
match: cb_tag
WS: { new: NODETYPE_SCALAR_OR_MAP }
DEFAULT: { new: NODETYPE_SCALAR_OR_MAP, }
scripts/dex view on Meta::CPAN
DEFAULT: { new: NODETYPE_NODE }
FULLNODE:
ANCHOR:
match: cb_anchor
EOL: { match: cb_property_eol, new: FULLNODE_ANCHOR }
WS:
TAG:
match: cb_tag
EOL: { match: cb_property_eol, new: FULLNODE_TAG_ANCHOR }
WS: { new: NODETYPE_SCALAR_OR_MAP }
DEFAULT: { new: NODETYPE_SCALAR_OR_MAP }
TAG:
match: cb_tag
EOL: { match: cb_property_eol, new: FULLNODE_TAG }
WS:
ANCHOR:
match: cb_anchor
EOL: { match: cb_property_eol, new: FULLNODE_TAG_ANCHOR }
WS: { new: NODETYPE_SCALAR_OR_MAP }
DEFAULT: { new: NODETYPE_SCALAR_OR_MAP }
EOL: { new: FULLNODE }
DEFAULT: { new: NODETYPE_NODE }
FULLMAPVALUE_INLINE:
ANCHOR:
match: cb_anchor
EOL: { match: cb_property_eol, new: FULLNODE_ANCHOR }
WS:
TAG:
match: cb_tag
EOL: { match: cb_property_eol, new: FULLNODE_TAG_ANCHOR }
WS: { new: NODETYPE_MAPVALUE_INLINE }
DEFAULT: { new: NODETYPE_MAPVALUE_INLINE }
TAG:
match: cb_tag
EOL: { match: cb_property_eol, new: FULLNODE_TAG }
WS:
ANCHOR:
match: cb_anchor
EOL: { match: cb_property_eol, new: FULLNODE_TAG_ANCHOR }
WS: { new: NODETYPE_MAPVALUE_INLINE }
DEFAULT: { new: NODETYPE_MAPVALUE_INLINE }
DEFAULT: { new: NODETYPE_MAPVALUE_INLINE }
scripts/dex view on Meta::CPAN
DOC_START => 'doc_start',
DOC_END => 'doc_end',
BLOCK_SCALAR_CONTENT => 'block_scalar_content',
TAB => 'tab',
ERROR => 'error',
EOL => 'eol',
TRAILING_SPACE => 'trailing_space',
FLOWSEQ_START => 'flowseq_start',
FLOWSEQ_END => 'flowseq_end',
FLOWMAP_START => 'flowmap_start',
FLOWMAP_END => 'flowmap_end',
scripts/dex view on Meta::CPAN
sub _fetch_next_tokens {
TRACE and warn __PACKAGE__.':'.__LINE__.": _fetch_next_tokens\n";
my ($self, $next_line) = @_;
my $yaml = \$next_line->[1];
my $eol = $next_line->[2];
my @tokens;
while (1) {
unless (length $$yaml) {
push @tokens, ( EOL => $eol, $self->line );
$self->push_tokens(\@tokens);
return;
}
my $first = substr($$yaml, 0, 1);
my $plain = 0;
scripts/dex view on Meta::CPAN
push @tokens, ( COLON => ':', $self->line );
$self->set_context(0);
next;
}
if ($$yaml =~ s/\A($RE_WS*(?: #.*))\z//) {
push @tokens, ( EOL => $1 . $eol, $self->line );
$self->push_tokens(\@tokens);
return;
}
$self->set_context(0);
}
scripts/dex view on Meta::CPAN
my $token_name = $TOKEN_NAMES{ $first };
if ($$yaml =~ s/\A\Q$first\E(?:($RE_WS+)|\z)//) {
my $token_name = $TOKEN_NAMES{ $first };
push @tokens, ( $token_name => $first, $self->line );
if (not defined $1) {
push @tokens, ( EOL => $eol, $self->line );
$self->push_tokens(\@tokens);
return;
}
my $ws = $1;
if ($$yaml =~ s/\A(#.*|)\z//) {
push @tokens, ( EOL => $ws . $1 . $eol, $self->line );
$self->push_tokens(\@tokens);
return;
}
push @tokens, ( WS => $ws, $self->line );
next;
scripts/dex view on Meta::CPAN
}
elsif ($first eq ' ' or $first eq "\t") {
if ($$yaml =~ s/\A($RE_WS+)//) {
my $ws = $1;
if ($$yaml =~ s/\A((?:#.*)?\z)//) {
push @tokens, ( EOL => $ws . $1 . $eol, $self->line );
$self->push_tokens(\@tokens);
return;
}
push @tokens, ( WS => $ws, $self->line );
}
scripts/dex view on Meta::CPAN
sub fetch_plain {
my ($self, $indent, $context) = @_;
my $next_line = $self->next_line;
my $yaml = \$next_line->[1];
my $eol = $next_line->[2];
my $REGEX = $RE_PLAIN_WORDS;
if ($self->flowcontext) {
$REGEX = $RE_PLAIN_WORDS_FLOW;
}
scripts/dex view on Meta::CPAN
my $plain = $1;
push @tokens, ( PLAIN => $plain, $self->line );
if ($$yaml =~ s/\A(?:($RE_WS+#.*)|($RE_WS*))\z//) {
if (defined $1) {
push @tokens, ( EOL => $1 . $eol, $self->line );
$self->push_tokens(\@tokens);
$self->set_next_line(undef);
return;
}
else {
push @tokens, ( EOL => $2. $eol, $self->line );
$self->set_next_line(undef);
}
}
else {
$self->push_tokens(\@tokens);
scripts/dex view on Meta::CPAN
if (not $next_line) {
last LOOP;
}
my $spaces = $next_line->[0];
my $yaml = \$next_line->[1];
my $eol = $next_line->[2];
if (not length $$yaml) {
push @tokens, ( EOL => $spaces . $eol, $self->line );
$self->set_next_line(undef);
push @lines, '';
next LOOP;
}
scripts/dex view on Meta::CPAN
my $ws = '';
if ($$yaml =~ s/\A($RE_WS+)//) {
$ws = $1;
}
if (not length $$yaml) {
push @tokens, ( EOL => $spaces . $ws . $eol, $self->line );
$self->set_next_line(undef);
push @lines, '';
next LOOP;
}
if ($$yaml =~ s/\A(#.*)\z//) {
push @tokens, ( EOL => $spaces . $ws . $1 . $eol, $self->line );
$self->set_next_line(undef);
last LOOP;
}
if ($$yaml =~ s/\A($RE2)//) {
scripts/dex view on Meta::CPAN
my $ws = '';
if ($$yaml =~ s/\A($RE_WS+)//) {
$ws = $1;
}
if (not length $$yaml) {
push @tokens, EOL => $ws . $eol, $self->line;
$self->set_next_line(undef);
next LOOP;
}
if ($$yaml =~ s/\A(#.*)\z//) {
push @tokens, EOL => $ws . $1 . $eol, $self->line;
$self->set_next_line(undef);
last LOOP;
}
else {
push @tokens, WS => $ws, $self->line if $ws;
scripts/dex view on Meta::CPAN
while (@lines > 1 and $lines[-1] eq '') {
pop @lines;
}
if (@lines > 1) {
my $value = YAML::PP::Render->render_multi_val(\@lines);
my @eol;
if ($tokens[-3] eq 'EOL') {
@eol = splice @tokens, -3;
}
$self->push_subtokens( { name => 'PLAIN_MULTI', value => $value }, \@tokens);
$self->push_tokens([ @eol, @next ]);
}
else {
$self->push_tokens([ @tokens, @next ]);
}
@tokens = ();
scripts/dex view on Meta::CPAN
sub fetch_block {
my ($self, $indent, $context) = @_;
my $next_line = $self->next_line;
my $yaml = \$next_line->[1];
my $eol = $next_line->[2];
my @tokens;
my $token_name = $TOKEN_NAMES{ $context };
$$yaml =~ s/\A\Q$context\E// or die "Unexpected";
push @tokens, ( $token_name => $context, $self->line );
scripts/dex view on Meta::CPAN
if ($set_indent) {
$started = 1;
$current_indent = $set_indent;
}
if (not length $$yaml) {
push @tokens, ( EOL => $eol, $self->line );
}
elsif ($$yaml =~ s/\A($RE_WS*(?:$RE_WS#.*|))\z//) {
push @tokens, ( EOL => $1 . $eol, $self->line );
}
else {
$self->push_tokens(\@tokens);
$self->exception("Invalid block scalar");
}
scripts/dex view on Meta::CPAN
if (not $next_line) {
last;
}
my $spaces = $next_line->[0];
my $content = $next_line->[1];
my $eol = $next_line->[2];
if (not $spaces and $content =~ m/\A(---|\.\.\.)(?=$RE_WS|\z)/) {
last;
}
if ((length $spaces) < $current_indent) {
if (length $content) {
last;
}
else {
push @lines, '';
push @tokens, ( EOL => $spaces . $eol, $self->line );
next;
}
}
if ((length $spaces) > $current_indent) {
if ($started) {
scripts/dex view on Meta::CPAN
$content = $more_spaces . $content;
}
}
unless (length $content) {
push @lines, '';
push @tokens, ( INDENT => $spaces, $self->line, EOL => $eol, $self->line );
unless ($started) {
$current_indent = length $spaces;
}
next;
}
scripts/dex view on Meta::CPAN
}
push @lines, $content;
push @tokens, (
INDENT => $spaces, $self->line,
BLOCK_SCALAR_CONTENT => $content, $self->line,
EOL => $eol, $self->line,
);
}
my $value = YAML::PP::Render->render_block_scalar($context, $chomp, \@lines);
my @eol = splice @tokens, -3;
$self->push_subtokens( { name => 'BLOCK_SCALAR', value => $value }, \@tokens );
$self->push_tokens([ @eol ]);
return 0;
}
sub fetch_quoted {
my ($self, $indent, $context) = @_;
scripts/dex view on Meta::CPAN
}
}
else {
($quoted, $decoded) = $self->_read_doublequoted($yaml);
}
my $eol = '';
unless (length $$yaml) {
if ($quoted =~ s/($RE_WS+)\z//) {
$eol = $1;
$decoded =~ s/($eol)\z//;
}
}
my $value = { value => $decoded, orig => $quoted };
if ($$yaml =~ s/\A$first//) {
scripts/dex view on Meta::CPAN
$self->push_tokens($tokens);
$self->exception("Invalid quoted <$first> string");
}
push @$tokens, ( $token_name . 'D_LINE' => $value, $self->line );
push @$tokens, ( EOL => $eol, $self->line );
return $value;
}
sub _read_doublequoted {
scripts/dex view on Meta::CPAN
}
return ($quoted, $decoded);
}
sub _fetch_next_tokens_directive {
my ($self, $yaml, $eol) = @_;
my @tokens;
if ($$yaml =~ s/\A(\s*%YAML)//) {
my $dir = $1;
if ($$yaml =~ s/\A( )//) {
scripts/dex view on Meta::CPAN
}
else {
$$yaml =~ s/\A(.*)//;
$dir .= $1;
push @tokens, ( 'Invalid directive' => $dir, $self->line );
push @tokens, ( EOL => $eol, $self->line );
$self->push_tokens(\@tokens);
return;
}
}
elsif ($$yaml =~ s/\A(\s*%TAG +(!$RE_NS_WORD_CHAR*!|!) +(tag:\S+|!$RE_URI_CHAR+)$RE_WS*)//) {
scripts/dex view on Meta::CPAN
die "Found reserved directive '$1'";
}
}
else {
push @tokens, ( 'Invalid directive' => $$yaml, $self->line );
push @tokens, ( EOL => $eol, $self->line );
$self->push_tokens(\@tokens);
return;
}
if (not length $$yaml) {
push @tokens, ( EOL => $eol, $self->line );
}
else {
push @tokens, ( 'Invalid directive' => $$yaml, $self->line );
push @tokens, ( EOL => $eol, $self->line );
}
$self->push_tokens(\@tokens);
return;
}
scripts/dex view on Meta::CPAN
DEBUG and $self->got("---got $got");
if (my $sub = $def->{match}) {
DEBUG and $self->info("CALLBACK $sub");
$self->$sub(@$tokens ? $tokens->[-1] : ());
}
my $eol = $got eq 'EOL';
my $new = $def->{new};
if ($new) {
DEBUG and $self->got("NEW: $new");
$rule_name = $new;
$self->set_rule($rule_name);
}
elsif ($eol) {
}
elsif ($def->{return}) {
$rule_name = $nodetypes{ $event_types->[-1] }
or die "Unexpected event type $event_types->[-1]";
$self->set_rule($rule_name);
scripts/dex view on Meta::CPAN
else {
$rule_name .= " - $got"; # for debugging
$rule = $def;
next RULE;
}
if ($eol) {
unless ($self->lex_next_tokens) {
$self->end_document(1);
return 0;
}
unless ($self->new_node) {
scripts/dex view on Meta::CPAN
value => $anchor,
offset => $token->{column},
};
}
sub cb_property_eol {
my ($self, $res) = @_;
my $stack = $self->event_stack;
my $last = $stack->[-1]->[1];
my $inline = delete $last->{inline} or return;
my $newline = $last->{newline} ||= [];
App-DistroWatchUtils
view release on metacpan or search on metacpan
bin/get-distro-releases-info view on Meta::CPAN
[
{
release_name => '17.2 rafaela',
release_date => '2015-06-30',
eol_date => '2019-04',
abiword_version => '--',
alsa_lib_version => '1.0.27.2',
perl_version => '5.22.0',
python_version => '2.7.5',
...
App-Dochazka-WWW
view release on metacpan or search on metacpan
share/js/dochazka-www/caches.js view on Meta::CPAN
},
populateLastPlusOffset = function (populateArray) {
var beginTime,
date = $('#iNdate').text(),
eolei,
endTime,
i,
lastExistIntvl = $('#iNlastexistintvl').text().trim().replace(/\s/g, ''),
offset = $('#iNoffset').text(),
schedAfter,
share/js/dochazka-www/caches.js view on Meta::CPAN
populateContinue(populateArray);
return null;
}
// Names/meanings of variables
//
// "eolei": end of last existing interval
[beginTime, endTime] = lastExistIntvl.split('-');
eolei = endTime;
console.log("eolei is " + eolei);
//
// "withinSchedIntvl": eolei falls within a schedule interval (boolean)
// Example: eolei is 8:00, schedIntvl is 8:00-12:00 -> true
// Example: eolei is 12:00, schedIntvl is 8:00-12:00 -> false
// Example: eolei is 11:55, schedIntvl is 8:00-12:00 -> true
// (Calculate withSchedIntvl by comparing eolei with each schedIntvl in turn.
// If computation is true for any of them, then the result is true)
for (i = 0; i < schedIntvls.length; i += 1) {
withinSchedIntvl = dt.isTimeWithinTimeRange(eolei, schedIntvls[i]);
if (withinSchedIntvl) {
[beginTime, endTime] = dt.canonicalizeTimeRangeOffset(eolei + String(offset));
populateLastPlusOffsetFormFields(beginTime + '-' + endTime);
populateContinue(populateArray);
return null;
}
}
console.log("eolei does not fall within any of the schedule intervals");
//
// "schedAfter": first schedule interval that lies fully after eolei
schedAfter = null;
for (i = 0; i < schedIntvls.length; i += 1) {
if (dt.isTimeRangeAfterTime(schedIntvls[i], eolei)) {
schedAfter = schedIntvls[i];
break;
}
}
// if schedAfter, add offset to beginning of schedAfter
// else, add offset to eolei
if (schedAfter) {
console.log("There is a schedule interval after eolei");
[beginTime, endTime] = schedAfter.split('-');
[beginTime, endTime] = dt.canonicalizeTimeRangeOffset(beginTime + String(offset));
} else {
console.log("There is no schedule interval after eolei");
[beginTime, endTime] = dt.canonicalizeTimeRangeOffset(eolei + String(offset));
}
populateLastPlusOffsetFormFields(beginTime + '-' + endTime);
populateContinue(populateArray);
},
App-Docker-Client
view release on metacpan or search on metacpan
lib/App/Docker/Client.pm view on Meta::CPAN
$in_hndl->on_read(
sub {
my ($h) = @_;
$h->push_read(
line => sub {
my ( $h2, $line, $eol ) = @_;
$fh->push_write( $line . $eol );
}
);
}
);
$in_hndl->on_eof( sub { $cv->send } );
App-Du-Analyze
view release on metacpan or search on metacpan
t/00-compile.t
t/app.t
t/data/fc-solve-git-du-output.txt
t/filter.t
weaver.ini
xt/author/eol.t
xt/author/pod-coverage.t
xt/author/pod-syntax.t
xt/author/tidyall.t
xt/release/cpan-changes.t
xt/release/kwalitee.t
App-DubiousHTTP
view release on metacpan or search on metacpan
lib/App/DubiousHTTP/Tests/Chunked.pm view on Meta::CPAN
$hdr .= "Transfer-Encoding: chunked\r\nConnection: close\r\n";
$chunkmod{'size-adjust'} = int("$1$2");
} elsif ( m{^(chunk-ext-|nofinal$|eof-inchunk$)} ) {
$hdr .= "Transfer-Encoding: chunked\r\nConnection: close\r\n";
$chunkmod{$_} = 1;
} elsif ( my ($eol) = m{^chunk-((?:lf|cr)+)$} ) {
$hdr .= "Transfer-Encoding: chunked\r\nConnection: close\r\n";
$eol =~s{cr}{\r}g;
$eol =~s{lf}{\n}g;
$chunkmod{lineend} = $eol;
} elsif (m{^(32|64)-size\z}) {
my $o = ($1 == 64) ? 'ffffffff':'';
$sizefmt = sub { sprintf("-$o%08x", 1+(0xffffffff & ~shift())) };
$hdr .= "Transfer-Encoding: chunked\r\nConnection: close\r\n";
} elsif ( m{^(-|space|cr|lf|tab|x|\\[0-7]{3})*(0*)(uc)?size(-|space|cr|lf|tab|x|\\[0-7]{3})*$}) {
App-ElasticSearch-Utilities
view release on metacpan or search on metacpan
t/04-aggregate-expand.t
t/05-aggregate-flatten.t
t/06-version-hacks.t
weaver.ini
xt/author/critic.t
xt/author/eol.t
xt/author/no-tabs.t
xt/author/pod-coverage.t
xt/author/pod-syntax.t
App-Fasops
view release on metacpan or search on metacpan
lib/App/Fasops/Command/stat.pm view on Meta::CPAN
else {
open $out_fh, ">", $opt->{outfile};
}
# csv object
my $csv = Text::CSV_XS->new( { eol => $/, } );
# headers
my @headers = qw{
first legnth comparables identities differences gaps ns errors D indel
};
App-FilterUtils
view release on metacpan or search on metacpan
lib/App/FilterUtils/untashkeel.pm
t/00-report-prereqs.dd
t/00-report-prereqs.t
t/t/01-use-ok.t
xt/author/00-compile.t
xt/author/eol.t
xt/author/no-tabs.t
xt/author/pod-syntax.t
xt/author/test-version.t
( run in 1.260 second using v1.01-cache-2.11-cpan-aadc1410aed )