[catagits/Gitalist.git] / t / lib / TestModelFancy.pm

use MooseX::Declare;

class TestModelFancy with Gitalist::Git::CollectionOfRepositories {
    use MooseX::Types::Path::Class qw/Dir/;

    has fanciness => (
        is  => 'ro',
        isa => 'Bool',
    );

    has repo_dir => (
        isa      => Dir,
        is       => 'ro',
        required => 1,
        coerce   => 1,
    );

    method _build_repositories {
        [$self->get_repository('repo1')]
    }
    method _get_repo_from_name($name) {
        Gitalist::Git::Repository->new($self->repo_dir->subdir($name)->resolve);
    }

    method debug_string { 'it is always repo1' }
}
Commit	Line	Data
0fd9a84a	1	use MooseX::Declare;
	2
	3	class TestModelFancy with Gitalist::Git::CollectionOfRepositories {
	4	use MooseX::Types::Path::Class qw/Dir/;
	5
	6	has fanciness => (
	7	is => 'ro',
	8	isa => 'Bool',
	9	);
	10
	11	has repo_dir => (
	12	isa => Dir,
	13	is => 'ro',
	14	required => 1,
	15	coerce => 1,
	16	);
	17
	18	method _build_repositories {
	19	[$self->get_repository('repo1')]
	20	}
	21	method _get_repo_from_name($name) {
	22	Gitalist::Git::Repository->new($self->repo_dir->subdir($name)->resolve);
	23	}
2141c564	24
2141c564	25	method debug_string { 'it is always repo1' }
0fd9a84a	26	}