view release on metacpan or search on metacpan
lib/Text/Distill.pm view on Meta::CPAN
lc $FullName;
};
# parse all . and .. in name
my @CleanedSegments;
my @OriginalSegments = split m:/:, $FullName;
for my $Part ( @OriginalSegments ) {
if( $Part eq '.' ) {
# just skip
} elsif( $Part eq '..' ) {
pop @CleanedSegments;
view release on metacpan or search on metacpan
lib/Text/Elide.pm view on Meta::CPAN
if length( $elipsis ) > $length
;
### require: length( $elipsis ) <= $length
if ( $broken_word )
{
# remove partial word if crude truncation split mid-word
$string =~ s/\s+\S+$//;
### require: $string =~ /\S$/
}
# if there is only one word ...
unless ( $string =~ /\S\s+\S/ )
view release on metacpan or search on metacpan
lib/Text/KwikiFormatish.pm view on Meta::CPAN
}
$_ = $self->lists_format($text);
}
$_;
}
split m!(^[0\*]+ .*?\n)(?=(?:[^0\*]|$))!ms, $text;
}
=item * lists_format - how to format the lists
=cut
lib/Text/KwikiFormatish.pm view on Meta::CPAN
{
$_ = $self->paragraph_format($_);
}
$_;
}
split m!(\n\s*\n)!ms, $text;
}
=item * paragraph_format - how to format paragraphs as XHTML
=cut
view release on metacpan or search on metacpan
lib/Text/Layout/PDFAPI2.pm view on Meta::CPAN
foreach my $p (qw[bFamilyType bSerifStyle bWeight bProportion bContrast bStrokeVariation bArmStyle bLetterform bMidline bXheight]) {
$data->{'panose'} .= pack('C', $font->{'OS/2'}->{$p});
}
$data->{'apiname'} = join('', map { ucfirst(lc(substr($_, 0, 2))) } split m/[^A-Za-z0-9\s]+/, $data->{'fontname'});
$data->{'fontname'} =~ s/[\x00-\x1f\s]//g;
$data->{'altname'} = $font->{'name'}->find_name(1);
$data->{'altname'} =~ s/[\x00-\x1f\s]//g;
view release on metacpan or search on metacpan
lib/Text/Lorem/More.pm view on Meta::CPAN
fullname => sub { ["+firstname +lastname"] },
username => "word",
word => [ grep { length $_ } map { s/\W//g; lc } split m/\s/, <<_END_ ],
alias consequatur aut perferendis sit voluptatem accusantium doloremque aperiam, eaque ipsa quae ab illo inventore veritatis et quasi architecto beatae vitae dicta sunt explicabo. aspernatur aut odit aut fugit, sed quia consequuntur magni dolores eos...
_END_
title => sub { [ sub { ucfirst($_) }, "+word", 1 + int rand 3 ] },
lib/Text/Lorem/More.pm view on Meta::CPAN
$count--;
}
return join("\n\n", @paragraph);
},
email => [ map { [ $_ ] } split m/\n/, <<_END_ ],
+word\@+hostname
+word\@+domainname
_END_
mail => "email",
lib/Text/Lorem/More.pm view on Meta::CPAN
relativepath => '',
absolutepath => '',
path => sub { [ "+word", 1 + int rand 6, "/" ] },
httpurl => [ map { [ $_ ] } split m/\n/, <<_END_ ],
http://+hostname+path
http://+hostname:+port+path
_END_
port => sub { int rand(1 + (2 ** 15)) },
mailto => \"mailto:+email",
tld => "topleveldomain",
topleveldomain => [ split m/\s/, <<_END_ ],
com org net
_END_
domain => "domainname",
domainname => [ map { [ $_ ] } split m/\n/, <<_END_ ],
example.+tld
_END_
host => "hostname",
hostname => [ map { [ $_ ] } split m/\n/, <<_END_ ],
+word.+domainname
+domainname
_END_
);
view release on metacpan or search on metacpan
xt/MarkdownXS.pl view on Meta::CPAN
if ($cli_opts{'shortversion'}) { # Just the version number string.
print $Text::Markdown::VERSION;
exit 0;
}
if ($cli_opts{'help'}) {
for my $dir (split m/:/, $ENV{PATH}) {
my $cmd = "$dir/perldoc";
exec($cmd, $0) if (-f $cmd and -x $cmd);
}
die "perldoc could not be found in your path - Cannot show help, sorry\n";
}
view release on metacpan or search on metacpan
lib/Text/Markdown/Slidy.pm view on Meta::CPAN
# <h2>Title2</h2>
#
# <p>hoge</p>
# </div>
# split markdown text to slide sections
my @markdowns_per_section = split_markdown($markdown_text);
=head1 DESCRIPTION
Text::Markdown::Slidy is to convert markdown syntax to HTML slide tools.
view release on metacpan or search on metacpan
script/Markdown.pl view on Meta::CPAN
if ($cli_opts{'shortversion'}) { # Just the version number string.
print $Text::Markdown::VERSION;
exit 0;
}
if ($cli_opts{'help'}) {
for my $dir (split m/:/, $ENV{PATH}) {
my $cmd = "$dir/perldoc";
exec($cmd, $0) if (-f $cmd and -x $cmd);
}
die "perldoc could not be found in your path - Cannot show help, sorry\n";
}
view release on metacpan or search on metacpan
MetaMarkup/HTML/JuerdNL.pm view on Meta::CPAN
return $self->SUPER::link($href, $text);
}
sub link_cpan {
my ($self, $href, $text) = @_;
$text ||= (split m[/], $href->{rest})[-1];
$href->{rest} =~ s/::/-/g;
$href->{href} = "http://search.cpan.org/author/$href->{rest}/" .
(split /-/, $href->{rest})[-1] . ".pm";
return $self->link($href, $text);
}
view release on metacpan or search on metacpan
script/MultiMarkdown.pl view on Meta::CPAN
if ($cli_opts{'shortversion'}) { # Just the version number string.
print $Text::MultiMarkdown::VERSION;
exit 0;
}
if ($cli_opts{'help'}) {
for my $dir (split m/:/, $ENV{PATH}) {
my $cmd = "$dir/perldoc";
exec($cmd, $0) if (-f $cmd and -x $cmd);
}
die "perldoc could not be found in your path - Cannot show help, sorry\n";
}
view release on metacpan or search on metacpan
OutputFilter.pm view on Meta::CPAN
$self->{closed} and croak "Cannot print to closed filehandle";
my $fsep = defined $, ? $, : "";
my $rsep = defined $\ ? $\ : "";
my $line = $self->{line} . (join $fsep => @_) . $rsep;
my @line = split m/\n/, $line, -1;
$self->{line} = pop @line;
print { $io } map { _Filter_ (1, $pfx, $sub, $_) } @line;
} # PRINT
sub PRINTF {
view release on metacpan or search on metacpan
lib/Text/Parts.pm view on Meta::CPAN
If this option is true, don't open file on creating Text::Parts::Part object.
You need to call C<open_and_seek> method from the object when you read the file
(But, C<all> and C<write_file> checks this option, so you don't need to call C<open_and_seek>).
This option is required when you pass too much number, which is more than OS's open file limit, to split method.
=head2 file
my $file = $s->file;
$s->file($filename);
view release on metacpan or search on metacpan
lib/Text/Restructured.pm view on Meta::CPAN
$validstart = 0;
}
elsif ($start eq '' && defined $pchar &&
$pchar !~ m!(\A|[-\'\"\(\[\{</: \\])$!) {
# It seems to be a reference, but prechar isn't allowed
my @s = split m!(([-\'\"\(\[\{</: \\])|(__?)(?=$MARK_END_TRAILER|\n))!, $text,2 ;
$pchar = $s[2] if defined $s[2];
my $anon = defined $s[3] ? $s[3] : '';
($processed,$after) = ("$processed$s[0]$pchar$anon","$s[-1]");
$validstart = 0;
$text = $after;
view release on metacpan or search on metacpan
lib/Text/Split.pm view on Meta::CPAN
if ( $slurp{trim} ) {
s/^\s*//, s/\s*$//, for $content;
}
if ( wantarray && $slurp{wantlist} ) {
@content = grep { $_ ne "\n" } split m/(\n)/, $content;
@content = map { "$_\n" } @content unless $slurp{chomp};
return @content;
}
else {
return $content;
view release on metacpan or search on metacpan
lib/Text/Template/Simple/Base/Parser.pm view on Meta::CPAN
}
sub _parse_command {
my $self = shift;
my $str = shift;
my($head, $raw_block) = split m{;}xms, $str, 2;
my @buf = split RE_PIPE_SPLIT, q{|} . trim($head);
shift @buf;
my %com = map { trim $_ } @buf;
if ( DEBUG >= DEBUG_LEVEL_INSANE ) {
lib/Text/Template/Simple/Base/Parser.pm view on Meta::CPAN
my $check = ($stack eq '1' || $stack eq 'yes' || $stack eq 'on')
? 'string'
: $stack
;
my($type, $channel) = split m{:}xms, $check;
$channel = ! $channel ? 'warn'
: $channel eq 'buffer' ? $self->[FAKER] . ' .= '
: 'warn'
;
view release on metacpan or search on metacpan
lib/Text/Treesitter/Bash.pm view on Meta::CPAN
src/parser.c
src/scanner.c
src/node-types.json
)
) {
my $source = $share->child( split m{/}, $file );
my $target = $tmp->child( split m{/}, $file );
next unless -f $source;
$target->parent->mkpath;
$source->copy($target);
lib/Text/Treesitter/Bash.pm view on Meta::CPAN
sub _simple_command_entry {
my ( $self, $node, $context, $before_op ) = @_;
my $source = $node->text;
my @argv = grep { length $_ } split m/\s+/, $source;
my $name = _clean_word( $argv[0] // _first_child_text($node) );
return {
source => $source,
command => $name,
view release on metacpan or search on metacpan
examples/highlight.pl view on Meta::CPAN
my $start = $tree->byte_to_char( $node->start_byte );
my $len = $tree->byte_to_char( $node->end_byte ) - $start;
$str->apply_tag( $start, $len, captures => $capturename ) if $CAPTURES;
my @nameparts = split m/\./, $capturename;
while( @nameparts ) {
if( my $format = $FORMATS{ join ".", @nameparts } ) {
$str->apply_tag( $start, $len, $_, $format->{$_} ) for keys %$format;
next CAPTURE;
}
view release on metacpan or search on metacpan
lib/Text/UnAbbrev.pm view on Meta::CPAN
= ( File::Spec::Functions::splitdir($dict_file) )[ -3, -2, -1 ];
my $fh = IO::File->new( $dict_file, q(<:utf8) );
while ( my $line = $fh->getline() ) {
chomp $line;
my ( $abbrev, $expansion ) = split m{\t+|\N{SPACE}{2,}}msx, $line;
$abbrev = $self->_norm_abbrev($abbrev);
push @{ $self->dict->{$language}{$domain}{$subdomain}{$abbrev} },
$expansion;
}
$fh->close();
view release on metacpan or search on metacpan
lib/Tickit/Widget/Scroller/Item/RichText.pm view on Meta::CPAN
$str->iter_substr_nooverlap(
sub {
my ( $substr, %tags ) = @_;
my $pen = $self->pen_for_tags( \%tags );
my @lines = split m/\n/, $substr, -1 or return;
my $lastline = pop @lines;
push @chunks, [ $_, textwidth( $_ ), pen => $pen, linebreak => 1 ] for @lines;
push @chunks, [ $lastline, textwidth( $lastline ), pen => $pen ];
},
);
view release on metacpan or search on metacpan
lib/Tickit/Widget/Static.pm view on Meta::CPAN
my ( $text ) = @_;
my $waslines = $self->lines;
my $wascols = $self->cols;
@_lines = split m/\n/, $text;
# split on empty string returns empty list
@_lines = ( "" ) if !@_lines;
$self->resized if $self->lines != $waslines or $self->cols != $wascols;
view release on metacpan or search on metacpan
t/02rectset.t view on Meta::CPAN
while( <DATA> ) {
next if m/^\s*$/;
$name = $1, next if m/^\s*#\s*(.*)$/;
my ( $input, $output ) = m/^(.*)\s*=>\s*(.*)$/ or die "Expected =>\n";
my @input = split m/\s+/, $input;
my $method = shift @input;
my @inputrects = map _newrect($_), @input;
my @outputrects = map string(_newrect($_)), split m/\s+/, $output;
if( $method eq "add" ) {
my $rectset = Tickit::RectSet->new;
$rectset->add( $_ ) for @inputrects;
view release on metacpan or search on metacpan
lib/Tie/Eudora.pm view on Meta::CPAN
my @fields = split /^([\w\-]+): */mo, $header;
if($debug && !@fields) {
$event = "No header fields\n";
goto EVENT;
}
shift @fields; # cause split makes 1st element empty!
for( my $i=0; $i < @fields; $i += 2) {
chomp $fields[$i+1];
}
push @fields, ('X-Body',$body);
return \@fields;
view release on metacpan or search on metacpan
my $user = $ENV{LOGNAME} || $ENV{USER};
$user ||= getpwuid $< unless $^O eq "MSWin32";
$user ||= "";
if ($type eq "Oracle") {
my @id = split m{/} => ($ENV{ORACLE_USERID} || "/"), -1;
$ENV{DBI_USER} = $id[0];
$ENV{DBI_PASS} = $id[1];
($ENV{ORACLE_SID} || $ENV{TWO_TASK}) &&
-d ($ENV{ORACLE_HOME} || "/-..\x03") &&
view release on metacpan or search on metacpan
# repair last line without \n
ok(
! ( $text =~ s{([^\x0D\x0A]) \z}{$1\x0D\x0A}xms ),
"$file_name has newline at EOF",
);
@lines = split m{\x0A}, $text;
}
my $find_line_numbers = sub {
my ($test_description, $test_reason, $regex, $regex_negation) = @_;
my $line_number = 0;
view release on metacpan or search on metacpan
lib/Time/Elapsed.pm view on Meta::CPAN
}
sub _set_lang_cache {
my($lang) = @_;
my $class = join q{::}, __PACKAGE__, 'Lang', $lang;
my $file = join(q{/} , split m{::}xms, $class ) . '.pm';
require $file;
$LCACHE->{ $lang } = {
singular => { $class->singular },
plural => { $class->plural },
other => { $class->other },
view release on metacpan or search on metacpan
$data->{useDigital} * $data->{_digSize} + 1;
my $wdth = _max ($data->{useAnalog} * $data->{_anaSize},
$data->{useDigital} * $data->{_digWdth});
my $dim = "${wdth}x${hght}";
my $geo = $clock->parent->geometry;
my ($pw, $ph) = split m/\D/, $geo; # Cannot use ->cget here
if ($ph > 5 && $clock->parent->isa ("MainWindow")) {
my %pi = $clock->_packinfo;
my $px = _max ($wdth + $pi{"-padx"}, $pw);
my $py = _max ($hght + $pi{"-pady"}, $ph);
$clock->parent->geometry ("${px}x$py");
$data->{useAnalog} && $data->{autoScale} == 1 or return;
my $owdth = $data->{useAnalog} * $data->{_anaSize};
my $geo = $clock->geometry;
my ($gw, $gh) = split m/\D/, $geo; # Cannot use ->cget here
$gw < 5 and return; # not packed yet?
$data->{useDigital} and $gh -= $data->{_digSize};
my $nwdth = _min ($gw, $gh - 1);
abs ($nwdth - $owdth) > 5 && $nwdth >= 10 or return;
"ww" => '%02d', # 28
);
my $fmt = $data->{$attr};
$fmt =~ m{[\%\@\$]} and croak "%, \@ and \$ not allowed in $attr";
my $xfmt = join "|", reverse sort keys %fmt;
my @fmt = split m/\b($xfmt)\b/, $fmt;
my $args = "";
$fmt = "";
my $locale = $data->{useLocale} || "C";
foreach my $f (@fmt) {
if (defined $fmt{$f}) {
view release on metacpan or search on metacpan
lib/Tk/Dressing.pm view on Meta::CPAN
}
sub _default_config {
my ( $this, $widget, $ref_config_theme ) = @_;
my ( $class, $type ) = split m/::/msx, ref $widget;
$type = defined $type ? $type : $class;
if ( not defined $type ) { return; }
# Store the initial configuration before set the first theme
if ( !$initial_theme{$type} ) {
lib/Tk/Dressing.pm view on Meta::CPAN
if ( ( !%initial_theme ) or ( not defined $clear or $clear != 1 ) ) {
$this->_default_config( $widget, $ref_config_theme );
}
# Get Class an type of widget to design it
my ( $class, $type ) = split m/::/msx, ref $widget;
# For MainWindows widget, ref($widget) = MainWindow, then $type = $class
# Else for Tk::Widget, ref($widget) = Tk::Toplevel or Tk::Frame, etc => $type ok
$type = defined $type ? $type : $class;
if ( not defined $type ) { return; }
view release on metacpan or search on metacpan
Pod/Tree.pm view on Meta::CPAN
sub GetCurrentPodPath {
my $w = shift;
my $sel_entry = ($w->selectionGet)[0];
if (defined $sel_entry) {
my @c = split m{/}, $sel_entry;
shift @c;
my $pod = join "::", @c;
return $pod;
}
}
view release on metacpan or search on metacpan
Tk/Dirlist.pm view on Meta::CPAN
my ($w,$dir) = @_;
my $path = '';
my $prefix = '';
my $first = 0;
my $name;
foreach $name (split m#/#,$dir)
{
$first++;
if ($name eq '')
{
next unless ($first == 1);
view release on metacpan or search on metacpan
lib/Tree/BPTree.pm view on Meta::CPAN
# either incorporate the split in ourselves or split ourselves if we are
# full
my $v = $self->find($cmp, $key);
my $result = $self->[($v) * 2]->split($n, $cmp, $key);
if ((@$self + 1) / 2 == $n && defined $result) {
# We're full and they split, we must split too. The way the split must
# be handled will depend upon whether this is a Left, Center, or Right
# split. That is, is the sub-split node pointer on the left side, the
# middle, or the right. But first, let's go ahead and split the node in
# half.
#