Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
lib	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
compile-time-file.t	958 B	-r--r--r--	2014-12-27 11:48
compile-time.t	360 B	-r--r--r--	2014-12-27 11:48
parent-classfromclassfile.t	502 B	-r--r--r--	2014-12-27 11:48
parent-classfromfile.t	637 B	-r--r--r--	2014-12-27 11:48
parent-pmc.t	677 B	-r--r--r--	2014-12-27 11:48
parent-returns-false.t	521 B	-r--r--r--	2014-12-27 11:48
parent.t	1.85 KB	-r--r--r--	2014-12-27 11:48

Rename

#!/usr/bin/perl -w

BEGIN {
   if( $ENV{PERL_CORE} ) {
        chdir 't' if -d 't';
        chdir '../lib/parent';
        @INC = '..';
    }
}

use strict;
use Test::More tests => 10;

use_ok('parent');

package No::Version;

use vars qw($Foo);
sub VERSION { 42 }

package Test::Version;

use parent -norequire, 'No::Version';
::is( $No::Version::VERSION, undef,          '$VERSION gets left alone' );

# Test Inverse: parent.pm should not clobber existing $VERSION
package Has::Version;

BEGIN { $Has::Version::VERSION = '42' };

package Test::Version2;

use parent -norequire, 'Has::Version';
::is( $Has::Version::VERSION, 42 );

package main;

my $eval1 = q{
  {
    package Eval1;
    {
      package Eval2;
      use parent -norequire, 'Eval1';
      $Eval2::VERSION = "1.02";
    }
    $Eval1::VERSION = "1.01";
  }
};

eval $eval1;
is( $@, '' );

# String comparisons, just to be safe from floating-point errors
is( $Eval1::VERSION, '1.01' );

is( $Eval2::VERSION, '1.02' );

my $expected= q{/^Can't locate reallyReAlLyNotexists.pm in \@INC $\@INC contains:/};
$expected= q{/^Can't locate reallyReAlLyNotexists.pm in \@INC \(you may need to install the reallyReAlLyNotexists module$ \(\@INC contains:/}
    if 5.017005 <= $];

eval q{use parent 'reallyReAlLyNotexists'};
like( $@, $expected, 'baseclass that does not exist');

eval q{use parent 'reallyReAlLyNotexists'};
like( $@, $expected, '  still failing on 2nd load');
{
    my $warning;
    local $SIG{__WARN__} = sub { $warning = shift };
    eval q{package HomoGenous; use parent 'HomoGenous';};
    like($warning, q{/^Class 'HomoGenous' tried to inherit from itself/},
                                          '  self-inheriting');
}

{
    BEGIN { $Has::Version_0::VERSION = 0 }

package Test::Version3;

use parent -norequire, 'Has::Version_0';
    ::is( $Has::Version_0::VERSION, 0, '$VERSION==0 preserved' );
}