view release on metacpan or  search on metacpan

bin/text2cow.pl  view on Meta::CPAN

## This is where the real action begins.
################################################################################

die "$PROGNAME: Too many input arguments" if @ARGV > 1;

local $/ = undef;       # file slurp mode
my $text = <>;          # get input text string

die "$PROGNAME: No input" unless defined $text;

my $n = length $text;   # get the number of characters in the string
my $prev_ord;           # this variable holds the previous ordinal value

for (my $i = 0 ; $i < $n ; ++ $i) {

    my $chr = substr($text, $i, 1);     # get this character ...
    my $ord = ord($chr);                # ... and its ordinal value

    if ($i == 0) {

        # Increment current memory block value by 1 until we have got the right

xt/release/portability.t  view on Meta::CPAN

use Test::More;

eval 'use Test::Portability::Files';

plan skip_all => 'Test::Portability::Files required for testing portability'
  if $@;

options(
        #use_file_find       => 1,
        test_amiga_length   => 1,
        test_ansi_chars     => 1,
        test_case           => 1,
        #test_dos_length     => 1,
        test_mac_length     => 1,
        test_one_dot        => 1,
        test_space          => 1,
        test_special_chars  => 1,
        test_symlink        => 1,
        test_vms_length     => 1,
        windows_reserved    => 1,
       );

run_tests();