PHP-Strings

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

fns/wordwrap.fn
inc/Algorithm/Diff.pm
inc/File/Slurp.pm
inc/Module/Install.pm
inc/Module/Install/AutoInstall.pm
inc/Module/Install/Base.pm
inc/Module/Install/Include.pm
inc/Module/Install/Makefile.pm
inc/Module/Install/Metadata.pm
inc/Test/Builder.pm
inc/Test/Differences.pm
inc/Test/More.pm
inc/Text/Diff.pm
INSTALL
LICENCE
Makefile.PL
makepm
MANIFEST
MANIFEST.SKIP
META.yml
ppport.h

Makefile.PL  view on Meta::CPAN

use inc::Module::Install;

name          ('PHP-Strings');
version_from  ('Strings.pm');
abstract      ("Implement some of PHP's functions");
author        ('Petras Kudaras (kudarasp@cpan.org)');

requires( 'Params::Validate' => '0.70' );
requires( 'Scalar::Util'     => '1.13' );

for my $mod (qw( Test::More File::Slurp Test::Differences ))
{
    include_deps( $mod, 5.006 );
}


features (
     "Function `str_shuffle'" => [
        'List::Util' => '1.13',
     ],
     "Function `strip_tags'" => [

SIGNATURE  view on Meta::CPAN

SHA1 0c7d742dc517f862fbbe3ea386544f5a56bd5a3c fns/wordwrap.fn
SHA1 a10ad83824ae77996daaa1b5ef614baa5c4981b1 inc/Algorithm/Diff.pm
SHA1 bc6c439ba84efb76880c45e107cb59a8c5276eab inc/File/Slurp.pm
SHA1 1297d0289de93954661998b16ccd9a688ae163df inc/Module/Install.pm
SHA1 e9a711bb1f113bfcb1b452d8fa40fbb1c94a1073 inc/Module/Install/AutoInstall.pm
SHA1 6cfb0832051abeb2d77a7ad7e8864266854a1cbe inc/Module/Install/Base.pm
SHA1 14808f1bf5910b6b4366335d3d0530ed66912a40 inc/Module/Install/Include.pm
SHA1 3f9879b9fac7ee90553635df08ed001ba03b32da inc/Module/Install/Makefile.pm
SHA1 44bf9f9df31606fe4b0975bbdbf42bc756d1b33d inc/Module/Install/Metadata.pm
SHA1 c2ac78499487311fb22307fd16f88eef9dbb0493 inc/Test/Builder.pm
SHA1 2432b8704744fc0b146d6d0e6ce3ec71ebfcd667 inc/Test/Differences.pm
SHA1 bc962029007d1c6117228a5516dee335cff9a16f inc/Test/More.pm
SHA1 aa7320f56eab94a18afbec812a36cb33dce2453b inc/Text/Diff.pm
SHA1 6df370ace72a03525f025f15fc7821908c7a4473 makepm
SHA1 660a8c4f1cffc2bf1e5096d020700d877310f25f ppport.h
SHA1 c41574ca2c239b0c8dd9426018ee41eabb06e437 t/99pod.t
SHA1 5741e1c2ece63b4c36cf6730868c7021c3a39221 t/TestPHP.pm
SHA1 6cfaed58bb2c192475bfcafb7f5a28d8e7cbf52d t/addcslashes.t
SHA1 9202204352d79134e5a93ab8d3491b53ed8b786f t/addslashes.t
SHA1 c300f91272ace895e0153ba08d1b35ee9b483eb0 t/bin2hex.t
SHA1 9e15430c936df5e587699bfe832dc64bb27ac32a t/chunk_split.t

inc/Test/Differences.pm  view on Meta::CPAN

#line 1 "inc/Test/Differences.pm - /opt/perl/5.8.2/lib/site_perl/5.8.2/Test/Differences.pm"
package Test::Differences;

#line 202

$VERSION = 0.47;

use Exporter;

@ISA = qw( Exporter );
@EXPORT = qw( eq_or_diff eq_or_diff_text eq_or_diff_data );

inc/Test/Differences.pm  view on Meta::CPAN

            }
            $rec = join ",", @$rec;
        }
    }

    return \@recs;
}


sub _identify_callers_test_package_of_choice {
    ## This is called at each test in case Test::Differences was used before
    ## the base testing modules.
    ## First see if %INC tells us much of interest.
    my $has_builder_pm = grep $_ eq "Test/Builder.pm", keys %INC;
    my $has_test_pm    = grep $_ eq "Test.pm",         keys %INC;

    return "Test"          if $has_test_pm && ! $has_builder_pm;
    return "Test::Builder" if ! $has_test_pm && $has_builder_pm;

    if ( $has_test_pm && $has_builder_pm ) {
        ## TODO: Look in caller's namespace for hints.  For now, assume Builder.

t/str_word_count.t  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';
use Test::More tests => 40;
use Test::Differences;
use lib 't';
use TestPHP;
BEGIN { use_ok 'PHP::Strings', ':str_word_count' };

my $php = find_php;

sub test_0
{
    my ( $input, $expected, $comment ) = @_;

t/strip_tags.t  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';
use Test::More tests => 10;
use Test::Differences;
use File::Slurp;
use lib 't';
use TestPHP;

BEGIN { use_ok 'PHP::Strings', ':strip_tags' };

chdir 't' if -d 't';

sub test_with_php
{

t/strtr.t  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';
use Test::More tests => 19;
use Test::Differences;
use lib 't';
use TestPHP;
BEGIN { use_ok 'PHP::Strings', ':strtr' };

my $php = find_php;

sub test_tr
{
    my ( $input, $to, $from, $expected, $comment ) = @_;