File Coverage

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

Criterion	Covered	Total	%
statement	9	18	50.0
branch	0	8	0.0
condition			n/a
subroutine	3	6	50.0
pod	1	2	50.0
total	13	34	38.2

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

our $VERSION = '0.03';
# this code is variation of Module::Setup::Plugin::VC::Git for VC::Bazaar. thx.

sub register
{
  my $self = shift;
  $self->add_trigger( check_skeleton_directory => \&check_skeleton_directory );
  $self->add_trigger( append_template_file     => sub { $self->append_template_file(@_) } );
}

sub check_skeleton_directory
{
  my $self = shift;
  return unless $self->dialog("Bzr init? [Yn] ", 'y') =~ /[Yy]/;

  !$self->system(qw/bzr init/)  or die $?;
  !$self->system(qw/bzr add/)   or die $?;

  !$self->system(qw/bzr commit -m/, 'initial commit') or die $?;
}

1;

=head1 NAME

Module::Setup::Plugin::VC::Bazaar - Bazaar plugin

=head1 SYNOPSIS

  module-setup --init --plugin=VC::Bazaar

=head1 AUTHOR

turugina Eturugina {at} cpan.orgE

=head1 SEE ALSO

L

=head1 LICENSE

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

=cut

__DATA__