File Coverage

blib/lib/Perl/ToPerl6/Transformer/Packages/RewriteUsages.pm

Criterion	Covered	Total	%
statement	22	31	70.9
branch	0	2	0.0
condition	0	6	0.0
subroutine	9	13	69.2
pod	3	5	60.0
total	34	57	59.6

package Perl::ToPerl6::Transformer::Packages::RewriteUsages;

use 5.006001;
use strict;
use warnings;
use Readonly;

use Perl::ToPerl6::Utils qw{ :severities };
use Perl::ToPerl6::Utils::PPI qw{ is_module_name is_pragma };

use base 'Perl::ToPerl6::Transformer';

#-----------------------------------------------------------------------------

Readonly::Scalar my $DESC => q{Transform 'use Foo;' to 'use Foo:from<Perl5>;'};
Readonly::Scalar my $EXPL =>
    q{Legacy Perl5 classes can be supported using Inline::Perl5 and the :from<Perl5> adverb};

#-----------------------------------------------------------------------------

my %map = (
    constant => 1
);

#-----------------------------------------------------------------------------

sub supported_parameters { return ()                 }
sub default_necessity    { return $NECESSITY_HIGHEST }
sub default_themes       { return qw( core )         }
sub applies_to           {
    return sub {
        $_[1]->isa('PPI::Statement::Include') and
        not is_pragma($_[1]->child(2)) and
        is_module_name($_[1]->child(2)) and
        not exists $map{$_[1]->child(2)->content}
    }
}

#-----------------------------------------------------------------------------

#
# 'use Foo;' --> 'use Foo:from<Perl5>;'
# 'use Foo qw(a);' --> 'use Foo:from<Perl5> <a>;'
#
# Although this module only adjusts the 'Foo' bit.
#
sub transform {
    my ($self, $elem, $doc) = @_;

    my $package_name = $elem->child(2);

    my $old_content = $package_name;
    $old_content .= ':from<Perl5>';
    $package_name->set_content($old_content);

    return $self->transformation( $DESC, $EXPL, $elem );
}

1;

#-----------------------------------------------------------------------------

__END__

=pod

=head1 NAME

Perl::ToPerl6::Transformer::Packages::RewriteUsages - Format 'use Foo;' to 'use Foo:from<Perl5>;'


=head1 AFFILIATION

This Transformer is part of the core L<Perl::ToPerl6|Perl::ToPerl6>
distribution.


=head1 DESCRIPTION

Since this tool's main purpose is helping to migrate legacy code, it assumes that you've installed L<Inline::Perl5> in order to be able to load Perl5 classes.

Perl6 can use Perl5 classes through the use of the C<< :from<Perl5> >> adverb. Since this tool is meant to port existing Perl5 code, the transformer assumes that all C<use> statements it sees are for legacy code. Future transformers may migrate L<Test::More> code to Perl6 L<Test> modules:

  use Foo; --> use Foo:from<Perl5>;
  use Foo qw(a b); --> use Foo:from<Perl5> qw(a b);

Transforms 'use' statements outside of comments, heredocs, strings and POD.

Does B<not> transform C<qw()> statements into their more modern Perl5 C<< <> >> equivalent, that is left to later transformers.

=head1 CONFIGURATION

This Transformer is not configurable except for the standard options.

=head1 AUTHOR

Jeffrey Goff <[e-mail]>

=head1 COPYRIGHT

Copyright (c) 2015 Jeffrey Goff

This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

##############################################################################
# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 78
#   indent-tabs-mode: nil
#   c-indentation-style: bsd
# End:
# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :