Acme-Schlong

 view release on metacpan or  search on metacpan

bin/schlong  view on Meta::CPAN

# my $schlong = Acme::Schlong->new;
# 
# my $size = $schlong->size;
# 
# $schlong->testdrive();

print "Your schlong size is @{[Acme::Schlong->new->size]}cm";
__END__
=pod

=encoding utf-8

=head1 NAME

schlong - exe-cute-able for Acme::Schlong

=head1 VERSION

version 0.001

=head1 AUTHOR

lib/Acme/Schlong.pm  view on Meta::CPAN

        say "Your number of known hosts is ", $self->known_hosts;
        # say "Your number of modules released to the cpan is ", $self->cpan_modules;
    }

}


__END__
=pod

=encoding utf-8

=head1 NAME

Acme::Schlong - Fun with Acme::Schlong!

=head1 VERSION

version 0.001

=head1 SYNOPSIS

t/000-report-versions.t  view on Meta::CPAN

package Local::YAML::Tiny;

use strict;
use Carp 'croak';

# UTF Support?
sub HAVE_UTF8 () { $] >= 5.007003 }
BEGIN {
    if ( HAVE_UTF8 ) {
        # The string eval helps hide this from Test::MinimumVersion
        eval "require utf8;";
        die "Failed to load UTF-8 support" if $@;
    }

    # Class structure
    require 5.004;
    $YAML::Tiny::VERSION   = '1.40';

    # Error storage
    $YAML::Tiny::errstr    = '';
}

t/000-report-versions.t  view on Meta::CPAN

    #     "\377\376\0\0" => 'UTF-32LE'
    #     "\0\0\376\377" => 'UTF-32BE',
    # );
    if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
        return $self->_error("Stream has a non UTF-8 BOM");
    } else {
        # Strip UTF-8 bom if found, we'll just ignore it
        $string =~ s/^\357\273\277//;
    }

    # Try to decode as utf8
    utf8::decode($string) if HAVE_UTF8;

    # Check for some special cases
    return $self unless length $string;
    unless ( $string =~ /[\012\015]+\z/ ) {
        return $self->_error("Stream does not end with newline character");
    }

    # Split the file into lines
    my @lines = grep { ! /^\s*(?:\#.*)?\z/ }
                split /(?:\015{1,2}\012|\015|\012)/, $string;