[Bps-public-commit] r14995 - in Shipwright/branches/2.0: lib/Shipwright/Script

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Aug 11 06:04:48 2008
New Revision: 14995

Added:
   Shipwright/branches/2.0/lib/Shipwright/Script/Defaultbranch.pm
Modified:
   Shipwright/branches/2.0/   (props changed)

Log:
 r15462 at sunnavys-mb:  sunnavy | 2008-08-11 17:54:49 +0800
 added defaultbranch cmd


Added: Shipwright/branches/2.0/lib/Shipwright/Script/Defaultbranch.pm
==============================================================================
--- (empty file)
+++ Shipwright/branches/2.0/lib/Shipwright/Script/Defaultbranch.pm	Mon Aug 11 06:04:48 2008
@@ -0,0 +1,56 @@
+package Shipwright::Script::Defaultbranch;
+use strict;
+use warnings;
+use Carp;
+
+use base qw/App::CLI::Command Class::Accessor::Fast Shipwright::Script/;
+
+use Shipwright;
+
+sub run {
+    my $self    = shift;
+    my $name    = shift;
+    my $default = shift;
+
+    die "need name arg\n" unless $name;
+    die "need default arg\n" unless $default;
+
+    my $shipwright = Shipwright->new( repository => $self->repository, );
+
+    my $branches = $shipwright->backend->branches;
+
+    if ( grep { $default eq $_ } @{ $branches->{$name} } ) {
+
+        # move $default to head
+        @{ $branches->{$name} } =
+          ( $default, grep { $_ ne $default } @{ $branches->{$name} } );
+        $shipwright->backend->branches( $branches );
+        print "set default branch for $name with success, now it's $default\n";
+    }
+    else {
+        die "$name doesn't have branches $default.
+Available branches are " . join( ', ', @{$branches->{$name}} ). "\n";
+    }
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Shipwright::Script::Defaultbranch - set the default branch for a dist
+
+=head1 SYNOPSIS
+
+ defaultbranch -r ... DIST BRANCH
+
+=head1 OPTIONS
+
+ -r [--repository] REPOSITORY   : specify the repository of our project
+ -l [--log-level] LOGLEVEL      : specify the log level
+                                  (info, debug, warn, error, or fatal)
+ --log-file FILENAME            : specify the log file
+
+=head1 DESCRIPTION
+