This file is indexed.

/usr/share/perl5/Test/Deep/NoTest.pm is in libtest-deep-perl 0.108-1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
use strict;
use warnings;

# this is for people who don't want Test::Builder to be loaded but want to
# use eq_deeply. It's a bit hacky...

package Test::Deep::NoTest;

use vars qw( $NoTest );

{
  local $NoTest = 1;
  require Test::Deep;
}

sub import {
  my $import = Test::Deep->can("import");
  # make the stack look like it should for use Test::Deep
  my $pkg = shift;
  unshift(@_, "Test::Deep");
  goto &$import;
}

1;

=head1 NAME

Test::Deep::NoTest - Use Test::Deep outside of the testing framework

=head1 SYNOPSIS

  use Test::Deep::NoTest;

  if eq_deeply($a, $b) {
    print "they were deeply equal\n";
  };

=head1 DESCRIPTION

This exports all the same things as Test::Deep but it does not load
Test::Builder so it can be used in ordinary non-test situations.