Merge remote branch 'origin/model-from-args'

[catagits/Gitalist.git] / lib / Gitalist / ScriptRole.pm

package Gitalist::ScriptRole;
use Moose::Role;
use MooseX::Types::Common::String qw/NonEmptySimpleStr/;
use namespace::autoclean;

has repo_dir => (
    isa => NonEmptySimpleStr, is => 'ro',
    predicate => 'has_repo_dir'
);

before 'run' => sub {
    my $self = shift;
    if ($self->has_repo_dir) {
        # FIXME - This seems gross. I should be able to pass things through
        #         to the app instance, but the params are sent to the engine
        #         and not actually used to construct the app.. Not that
        #         $ENV{GITLIST_REPO_DIR} is a bad move, just that that being
        #         the mechanism by which this works that is non optimum.
        $ENV{GITALIST_REPO_DIR} = $self->repo_dir;
    }
};

1;

=head1 NAME

Gitalist::ScriptRole - Role for Gitalist scripts.

=head1 DESCRIPTION

Wraps the run method in Catalyst scripts to apply the C<< --repo_dir >>
option.

=head1 AUTHORS

See L<Gitalist> for authors.

=head1 LICENSE

See L<Gitalist> for the license.

=cut