view release on metacpan or  search on metacpan

lib/Fedora/App/ReviewTool/KojiTask.pm  view on Meta::CPAN

has build_log => (is => 'ro', isa => Uri, lazy_build => 1);
has root_log  => (is => 'ro', isa => Uri, lazy_build => 1);
has state_log => (is => 'ro', isa => Uri, lazy_build => 1);

sub _build_build_log { shift->_find_link(sub { /build\.log/ }) }
sub _build_root_log  { shift->_find_link(sub { /root\.log/  }) }
sub _build_state_log { shift->_find_link(sub { /state\.log/ }) }

has rpms => 
    (is => 'ro', isa => 'ArrayRef[URI]', lazy_build => 1, auto_deref => 1);
sub _build_rpms { [ shift->_find_links(sub { /\.rpm$/ }) ] }

sub _find_link { (shift->_find_links(@_))[0] }

sub _find_links {
    my ($self, $cref) = @_;

    my @uris = $self->grep_uris($cref); 
    @uris = $self->first_task->grep_uris($cref) if @uris == 0;