File Coverage

blib/lib/lib/relative/to/HgRepository.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 15 15 100.0


line stmt bran cond sub pod time code
1             package lib::relative::to::HgRepository;
2              
3 2     2   570 use strict;
  2         4  
  2         49  
4 2     2   8 use warnings;
  2         4  
  2         44  
5            
6 2     2   741 use parent 'lib::relative::to::ParentContaining';
  2         517  
  2         8  
7              
8             sub _find {
9 5     5   17 my($class, @args) = @_;
10 5         28 $class->SUPER::_find('.hg/store', @args);
11             }
12              
13             1;
14              
15             =head1 NAME
16              
17             lib::relative::to::HgRepository
18              
19             =head1 SYNOPSIS
20              
21             use lib::relative::to HgRepository => qw(lib t/lib);
22              
23             =head1 DESCRIPTION
24              
25             A plugin for L for finding the root of a Mercurial repository and then adding some directories under it to C<@INC>.
26              
27             It works by looking for the parent directory containing C<.hg/store>.