view release on metacpan or search on metacpan
t/bootstrap.t
t/frontend.t
t/manifest.t
t/pod-coverage.t
t/pod.t
t/release-eol.t
t/release-no-tabs.t
t/release-pod-syntax.t
weaver.ini
view release on metacpan or search on metacpan
dist.ini
lib/App/SuperviseMe.pm
t/00-compile.t
t/01-new_with_options.t
tidyall.ini
xt/author/test-eol.t
xt/release/cpan-changes.t
xt/release/dist-manifest.t
xt/release/distmeta.t
xt/release/kwalitee.t
xt/release/meta-json.t
view release on metacpan or search on metacpan
t/03-log.t
t/04-index.t
t/05-twitter.t
t/06-http.t
xt/author/critic.t
xt/author/test-eol.t
xt/release/cpan-changes.t
xt/release/dist-manifest.t
xt/release/distmeta.t
xt/release/kwalitee.t
xt/release/meta-json.t
view release on metacpan or search on metacpan
lib/App/Table2YAML/Loader/DSV.pm view on Meta::CPAN
: IO::File->new( $self->input(), q(r) );
my $csv_obj = Text::CSV_XS->new(
{ binary => 1,
empty_is_undef => 1,
sep_char => $self->field_separator(),
eol => $self->record_separator(),
auto_diag => 9,
diag_verbose => 1,
}
);
my @dsv = @{ $csv_obj->getline_all($dsv_fh) };
view release on metacpan or search on metacpan
t/data/sort/ints1.txt
t/data/sort/letters1.txt
t/data/sort/three-words.txt
t/data/tac/a-sep.txt
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
view release on metacpan or search on metacpan
Makefile.PL
README
bin/tprove
dist.ini
lib/App/Tapper/prove.pm
t/release-eol.t
t/release-no-tabs.t
t/release-pod-coverage.t
t/release-pod-syntax.t
t/tprove.t
t/zomtec.txt
view release on metacpan or search on metacpan
t/pass/pwsafe.psafe3
t/rc/fakerouter.rc
t/rc/hostname.rc
t/rc/login_failures.rc
tel_script.spec
xt/eol.t
xt/kwalitee.t
xt/notab.t
xt/perlcritic.t
xt/pod-coverage.t
xt/pod-spelling.t
view release on metacpan or search on metacpan
script/term-terminfo view on Meta::CPAN
var => "change_scroll_region",
},
{ type => "str", value => "\e[3g", var => "clear_all_tabs" },
{ type => "str", value => "\e[H\e[2J", var => "clear_screen" },
{ type => "str", value => "\e[1K", var => "clr_bol" },
{ type => "str", value => "\e[K", var => "clr_eol" },
{ type => "str", value => "\e[J", var => "clr_eos" },
{ type => "str", value => "\e[%i%p1%dG", var => "column_address" },
{ type => "str", value => "\e[%i%p1%d;%p2%dH", var => "cursor_address" },
{ type => "str", value => "\n", var => "cursor_down" },
{ type => "str", value => "\e[H", var => "cursor_home" },
view release on metacpan or search on metacpan
lib/App/Termcast.pm
t/00-compile.t
t/basic.t
t/read-write.t
t/write-to-termcast.t
xt/release/eol.t
xt/release/no-tabs.t
xt/release/pod-coverage.t
xt/release/pod-syntax.t
view release on metacpan or search on metacpan
t/dist.t
t/edge_cases.t
t/Emitter-Perl.t
t/Emitter-Perl_unit.t
t/eof.t
t/eol.t
t/error_constraints.t
t/errors.t
t/extended_tests.t
t/function.t
t/fuzz.t
view release on metacpan or search on metacpan
t/author-pod-syntax.t
t/author-portability.t
t/author-synopsis.t
t/perlcriticrc
t/release-dist-manifest.t
t/release-eol.t
t/release-has-version.t
t/release-kwalitee.t
t/release-no-tabs.t
view release on metacpan or search on metacpan
lib/App/Timestamper/Format.pm
lib/App/Timestamper/Format/Filter/TS.pm
t/00-compile.t
t/test-filter.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
view release on metacpan or search on metacpan
scripts/tag-release.pl
t/00-compile.t
t/data/nums.txt
t/output-flag.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
view release on metacpan or search on metacpan
scripts/tag-release.pl
t/00-compile.t
t/pod-sanity.t
t/test-filter.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
view release on metacpan or search on metacpan
bin/tinyid
cpanfile
dist.ini
lib/App/TinyID.pm
t/tinyid.t
xt/author/eol.t
xt/author/pod-coverage.t
xt/author/pod-syntax.t
view release on metacpan or search on metacpan
bin/ttyrec
dist.ini
lib/App/Ttyrec.pm
t/00-compile.t
t/basic.t
xt/release/eol.t
xt/release/no-tabs.t
xt/release/pod-coverage.t
xt/release/pod-syntax.t
view release on metacpan or search on metacpan
script/unicheck view on Meta::CPAN
my $check = App::Unicheck->new;
my $info = undef;
my $plugins_flag = '';
my $eol = '';
my $option_handler = sub {
my ($option, @params) = @_;
$info = shift @params if $option eq 'info';
$eol = "\n" if $option eq 'newline';
};
GetOptions(
'info:s' => $option_handler,
'newline' => $option_handler,
script/unicheck view on Meta::CPAN
if ($plugins_flag) {
print "$_\n" for keys %{$check->modules};
exit 0;
}
print $check->run(@ARGV) . $eol;
=head1 AUTHOR
Matthias Krull, C<< <<m.krull at uninets.eu>> >>
view release on metacpan or search on metacpan
lib/UnifdefPlus.pm view on Meta::CPAN
elsif ( $line =~ /$EXPR->{$lang}->{IFEQ}/s ) {
# expression is assumed to be makefile here...
$litExpr = $1;
$expression = $2;
my $comment;
# TBD: preserve eol expressions in simplified expression...
my ($simplifiedExpr, $rss, $match) = $self->makefileCompareExprs($2);
my $wasSimplified = $rss==RSS_UNCHANGED?0:1;
$simplifiedExpr = $TRUE_RESOLVED if ($rss == RSS_RESOLVED && $match == MATCH_RESOLVED);
$simplifiedExpr = $FALSE_RESOLVED if ($rss == RSS_RESOLVED && $match == NO_MATCH_RESOLVED);
$self->parseIf( $litExpr, $simplifiedExpr, $keep, $wasSimplified );
lib/UnifdefPlus.pm view on Meta::CPAN
elsif ( $line =~ /$EXPR->{$lang}->{IFNEQ}/s ) {
# expression is assumed to be makefile here...
$litExpr = $1;
$expression = $2;
my $comment;
# TBD: preserve eol expressions in simplified expression...
my ($simplifiedExpr, $rss, $match) = $self->makefileCompareExprs($2);
my $wasSimplified = $rss!=RSS_UNCHANGED;
$simplifiedExpr = $FALSE_RESOLVED if ($rss == RSS_RESOLVED && $match == MATCH_RESOLVED);
$simplifiedExpr = $TRUE_RESOLVED if ($rss == RSS_RESOLVED && $match == NO_MATCH_RESOLVED);
$self->parseIf( $litExpr, $simplifiedExpr, $keep, $wasSimplified );
lib/UnifdefPlus.pm view on Meta::CPAN
my $remainder;
my $rss;
my $simplifiedStr ="";
my $exprsStr;
my $match = MATCH_UNKNOWN;
my $eolComment;
if ( $origExprsStr =~ /^\(/ ) {
($exprsStr,$eolComment) = extract_bracketed($origExprsStr, '(")');
$exprsStr =~ s/^\(|\)$//g;
($expr1,$expr2) = getParameterList($exprsStr);
# trim expressions, and store whitespace:
$expr1 =~ s/^(\s*)|(\s*)$//g;
my ($ws1,$ws2) = ($1 || "",$2 || "");
lib/UnifdefPlus.pm view on Meta::CPAN
return if ( ! defined $expr1 );
#tbd: figure out how to do the following two lines in one...
$remainder =~ s/^(\s++)//;
$ws = $1;
($expr2, $remainder) = extract_delimited($remainder,q{'"});
$eolComment = $remainder;
($expr1Quote) = $expr1 =~ /^(["'])/;
($expr2Quote) = $expr2 =~ /^(["'])/;
$expr1 =~ s/^(["'])|["']$//g;
$expr2 =~ s/^(["'])|["']$//g;
}
lib/UnifdefPlus.pm view on Meta::CPAN
($p1,$p2) = ($p2,$p1) if (length $p1 > length $p2);
$match = NO_MATCH_RESOLVED if ($p2 !~ /^$p1/);
#tbd: add test for end of string if end of string is constant
#tbd: add test for middle of string if one term is constant and other is not.
}
$simplifiedStr = $openBrace.$se1.$comma.$se2.$closeBrace.$eolComment
if $openBrace;
$simplifiedStr = $openBrace.$expr1Quote.$se1.$expr1Quote.$ws.$expr2Quote.$se2.$expr2Quote.$eolComment
if $expr1Quote;
return ($simplifiedStr,$rss,$match);
}
lib/UnifdefPlus.pm view on Meta::CPAN
}
}
elsif ($line =~ /^(\s+(?:[^"]|(?:"(?:[^"\\]|\\.)*"))+)(\s+if\s+)(.*?)(\s*\#.*)?$/) {
my $term = $1;
my $ifTerm = $2;
my $eolComment = defined($4) ? $4 : "";
print DBGOUT " conditional statement: $3" if ($self->{dbg});
my ($condition,$result) = $self->kconfigSimplifyExprTop($3);
if ($result eq $N) {
}
elsif ($result eq $Y || $result eq $M) {
$term =~ s/$LINE_SEP/\\\n/g;
$eolComment =~ s/$LINE_SEP/\\\n/g;
push(@$outLinesRef, $term . $eolComment . "\n");
}
else {
$term =~ s/$LINE_SEP/\\\n/g;
$ifTerm =~ s/$LINE_SEP/\\\n/g;
$condition =~ s/$LINE_SEP/\\\n/g;
$eolComment =~ s/$LINE_SEP/\\\n/g;
push(@$outLinesRef, $term . $ifTerm . $condition . $eolComment ."\n");
}
}
elsif ($line =~ /^\s+(\w+)\s*(.*)$/) {
$line =~ s/$LINE_SEP/\\\n/g;
print DBGOUT " + - $line...\n" if ($self->{dbg});
lib/UnifdefPlus.pm view on Meta::CPAN
if ($endStr) {
$hideEndif = 0;
#special handling for if: we need to modify the condition
if ($line =~ /^if\s+(.*?)(\s*(?:\#.*$))?$/) {
my ($condition, $result, $eolComment) = ($self->kconfigSimplifyExprTop($1), $2);
$eolComment = "" if !defined($eolComment);
if ($condition ne $1) {
# expression changed -- rewriting
if ($result eq $N) {
$isVisible = 0 ;
$self->{wasModified} = 1;
lib/UnifdefPlus.pm view on Meta::CPAN
$self->{wasModified} = 1;
$hideEndif = 1 ;
} else {
#pop off if statement (if statement may be multiline...)
while (! (pop(@$outLinesRef) =~ /^if\s/) ) {};
push(@$outLinesRef, "if ".$condition.$eolComment."\n");
}
}
}
#read block:
view release on metacpan or search on metacpan
lib/App/WRT/Markup.pm view on Meta::CPAN
=cut
sub dashes {
$_[1] =~ s/(\s+) # whitespace - no capture
\-{2} # two dashes
(\n|\s+|$) # newline, whitespace, or eol
/$1$_[0]$2/xgs;
}
=item include_process
view release on metacpan or search on metacpan
t/autofix.t
t/basic.t
t/cli.t
t/dsl.t
t/eof.t
t/eol.t
t/output_formats.t
META.yml Module YAML meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
lib/App/XML/DocBook/Docmake/CmdComponent.pm
script/tag-release.pl
t/00-compile.t
t/01-use.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
view release on metacpan or search on metacpan
lib/App/YTDL/ChooseVideos.pm view on Meta::CPAN
use warnings;
use strict;
use 5.010000;
use Exporter qw( import );
our @EXPORT_OK = qw( choose_videos set_sort_videolist );
use Encode qw( decode );
use Encode::Locale qw();
use List::MoreUtils qw( any none minmax firstidx );
lib/App/YTDL/ChooseVideos.pm view on Meta::CPAN
my $trs = Term::Form->new();
$regexp = $trs->readline( "Regexp: " );
next FILTER;
}
elsif ( $choice eq $sort ) {
set_sort_videolist( $set, $opt );
next FILTER;
}
else {
if ( $choice eq $enter ) {
shift @idx;
lib/App/YTDL/ChooseVideos.pm view on Meta::CPAN
}
}
}
sub set_sort_videolist {
my ( $set, $opt ) = @_;
my $backup_item = $opt->{list_sort_item};
my $backup_order = $set->{list_sort_order};
my $sort_items = [ 'upload_date', 'title', 'view_count_raw', 'duration' ];
my $confirm = ' CONFIRM';
view release on metacpan or search on metacpan
script/_chinese-zodiac-of view on Meta::CPAN
#my %i_to_us;
#@i_to_us{@i_to_us} = (1) x @i_to_us;
#
## -i to -o
#my @i_to_o = (qw/
# alveoli
# ghetti
# manifesti
# ostinati
# pianissimi
# scenarii
view release on metacpan or search on metacpan
lib/App/ZofCMS/PluginBundle/Naughty.pm
t/00-compile.t
t/00-load.t
t/01-plugin.t
xt/author/pod-spell.t
xt/author/test-eol.t
xt/release/cpan-changes.t
xt/release/dist-manifest.t
xt/release/distmeta.t
xt/release/kwalitee.t
xt/release/minimum-version.t
view release on metacpan or search on metacpan
lib/App/ZofCMS/Template.pm
lib/App/ZofCMS/Test/Plugin.pm
t/00-compile.t
t/00-load.t
t/01-plugin.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/test-version.t
view release on metacpan or search on metacpan
t/00-report-prereqs.dd
t/00-report-prereqs.t
t/01-use.t
xt/author/00-compile.t
xt/author/critic.t
xt/author/eol.t
xt/author/no-tabs.t
xt/author/pod-syntax.t
xt/author/test-version.t
xt/release/minimum-version.t
view release on metacpan or search on metacpan
t/app_af_requires.t
t/app_af_role_alienfile.t
t/app_palien.t
t/lib/MyTest.pm
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_link.t
xt/author/pod_spelling_common.t
view release on metacpan or search on metacpan
#
#my %i_to_us;
#@i_to_us{@i_to_us} = (1) x @i_to_us;
#
#my @i_to_o = (qw/
# alveoli
# ghetti
# manifesti
# ostinati
# pianissimi
# scenarii
view release on metacpan or search on metacpan
weaver.ini
xt/release/changes_has_content.t
xt/release/check-manifest.t
xt/release/common_spelling.t
xt/release/distmeta.t
xt/release/eol.t
xt/release/has-version.t
xt/release/minimum-version.t
xt/release/no-tabs.t
xt/release/pod-coverage.t
xt/release/pod-syntax.t