package Shipwright::Script::Create;
use strict;
use warnings;
use base qw/App::CLI::Command Shipwright::Script/;
use Shipwright;
use Shipwright::Util;
__PACKAGE__->mk_accessors('force');
sub options {
( 'f|force' => 'force' );
}
sub run {
my $self = shift;
my $shipwright = Shipwright->new( repository => $self->repository, );
$shipwright->backend->initialize();
$self->log->fatal( 'successfully created' );
}
1;
__END__
=head1 NAME
Shipwright::Script::Create - Create a shipyard
=head1 SYNOPSIS
shipwright create -r fs:/tmp/foo
shipwright create -r svk://foo
shipwright create -r svn:file:///tmp/foo/bar
shipwright create -r git:file:///home/me/shipwright/my_proj.git
=head1 OPTIONS
-f [--force] : delete the old shipyard if exists
=head1 GLOBAL OPTIONS
-r [--repository] REPOSITORY : specify the repository uri of our shipyard
-l [--log-level] LOGLEVEL : specify the log level
(info, debug, warn, error, or fatal)
--log-file FILENAME : specify the log file
=head1 AUTHORS
sunnavy C<< <sunnavy@bestpractical.com> >>
=head1 LICENCE AND COPYRIGHT
Shipwright is Copyright 2007-2012 Best Practical Solutions, LLC.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.