The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
##
# name:      YamlTime::Git
# abstract:  Git Support for YamlTime
# author:    Ingy döt Net <ingy@cpan.org>
# license:   perl
# copyright: 2011
# see:
# - YamlTime

use 5.008003;
use YamlTime 0.08 ();

package YamlTime::Extension::Git;

our $VERSION = '0.01';

package YamlTime::Command::commit;
use Mouse;
YamlTime->import( -command );
extends qw[YamlTime::Command];
use constant abstract => "'git commit' your YamlTime changes";

sub execute {
    my ($self, $opt, $args) = @_;
    my @args = @$args || ('-m', 'YamlTime!');
    $self->run('git add .') and
    $self->run("git commit @args");
}

package YamlTime::Command::push;
use Mouse;
YamlTime->import( -command );
extends qw[YamlTime::Command];
use constant abstract => "'git push' your YamlTime repository";

sub execute {
    my ($self, $opt, $args) = @_;
    my @args = @$args || qw(origin master);
    $self->run("git push @args");
}

1;