We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent afaf583 commit bf73a39Copy full SHA for bf73a39
lib/MetaCPAN/Document/File.pm
@@ -632,7 +632,7 @@ Returns true if the file is below a t directory.
632
sub is_in_test_directory {
633
my $self = shift;
634
my @parts = split m{/}, $self->path;
635
- return ( any { $_ eq 't' } @parts ) ? 1 : 0;
+ return any { $_ eq 't' } @parts;
636
}
637
638
=head2 add_module
t/document/file.t
@@ -17,9 +17,9 @@ my %stub = (
17
't/whomp' => 1,
18
'foo/t/bar' => 1,
19
'cuppa/t' => 1,
20
- 'foo/bart/shorts' => 0,
21
- 'tit/mouse' => 0,
22
- 'say/wat' => 0,
+ 'foo/bart/shorts' => q{},
+ 'tit/mouse' => q{},
+ 'say/wat' => q{},
23
);
24
25
foreach my $path ( keys %paths ) {
0 commit comments