File Coverage

blib/lib/PPIx/EditorTools/RenamePackageFromPath.pm

Criterion	Covered	Total	%
statement	44	44	100.0
branch	5	6	83.3
condition	1	3	33.3
subroutine	11	11	100.0
pod	1	1	100.0
total	62	65	95.3

package PPIx::EditorTools::RenamePackageFromPath;
our $AUTHORITY = 'cpan:YANICK';
# ABSTRACT: Change the package name based on the files path
$PPIx::EditorTools::RenamePackageFromPath::VERSION = '0.21';
use 5.008;
use strict;
use warnings;
use Carp;

use Class::XSAccessor accessors => {
	'replacement' => 'replacement',
	'filename'    => 'filename',
};

use base 'PPIx::EditorTools';
use PPIx::EditorTools::RenamePackage;
use Carp;
use File::Spec;
use File::Basename;


sub rename {
	my ( $self, %args ) = @_;
	$self->process_doc(%args);
	my $path = $args{filename} || croak "filename required";

	my $dir = dirname $path;
	my $file = basename $path, qw/.pm .PM .Pm/;

	my @directories =
		grep { $_ && !/^\.$/ } File::Spec->splitdir( File::Spec->rel2abs($dir) );
	my $replacement;
	if ( grep {/^lib$/} @directories ) {
		while ( shift(@directories) !~ /^lib$/ ) { }
	} else {
		@directories = grep { $_ && !/^\.$/ } File::Spec->splitdir($dir);
	}
	$replacement = join( '::', @directories, $file );

	return PPIx::EditorTools::RenamePackage->new( ppi => $self->ppi )->rename( replacement => $replacement );

}

1;

__END__