view release on metacpan or  search on metacpan

t/App-PRT-Command-RenameClass.t  view on Meta::CPAN

    $command->register('Parent' => 'Boss');

    subtest 'target class' => sub {
        my $file = "$directory/inherit.pl";

        $command->execute($file);

        ok -e $file, "script file exists";
        is file($file)->slurp, <<'CODE', 'use parent, use base statements were rewritten';
package Child1 {
    use DateTime;
    use utf8;
    use parent 'Boss';
};

package Child2 {
    use parent qw(Boss AnotherParent YetAnother::Parent);
};

package Child3 {
    use base 'Boss';

t/data/inherit/inherit.pl  view on Meta::CPAN

package Child1 {
    use DateTime;
    use utf8;
    use parent 'Parent';
};

package Child2 {
    use parent qw(Parent AnotherParent YetAnother::Parent);
};

package Child3 {
    use base 'Parent';