File Coverage

blib/lib/Module/Setup/Plugin/VC/SVN.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	1	2	50.0
total	28	29	96.5

package Module::Setup::Plugin::VC::SVN;
use strict;
use warnings;
use base 'Module::Setup::Plugin';

use Module::Setup::Path::Dir;

sub register {
    my($self, ) = @_;
    $self->add_trigger( after_setup_module_attribute => \&after_setup_module_attribute );
}

sub after_setup_module_attribute {
    my $self = shift;
    if ($self->dialog("Subversion friendly? [Yn] ", 'y') =~ /[Yy]/) {
        $self->distribute->dist_path->subdir($_)->mkpath for (qw/ trunk tags branches /);
        $self->distribute->{dist_path} = Module::Setup::Path::Dir->new($self->distribute->dist_path, 'trunk');
        $self->plugins_stash->{'VC::SVN'} = +{
            is_subversion_friendly => 1,
        };
    }
}

1;