This file is indexed.

/usr/share/perl5/Alzabo/Utils.pm is in libalzabo-perl 0.92-4.

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
42
43
44
45
46
47
48
49
50
51
52
53
54
package Alzabo::Utils;

use strict;

use Scalar::Util qw( blessed reftype );


sub safe_can
{
    return blessed( $_[0] ) && $_[0]->can( $_[1] );
}

sub safe_isa
{
    return blessed( $_[0] ) && $_[0]->isa( $_[1] );
}

sub is_arrayref
{
    return defined $_[0] && ref $_[0] && reftype $_[0] eq 'ARRAY';
}

sub is_hashref
{
    return defined $_[0] && ref $_[0] && ( ! blessed $_[0] ) && reftype $_[0] eq 'HASH';
}


1;

__END__

=head1 NAME

Alzabo::SQLMaker - Utility functions for other Alzabo modules

=head1 SYNOPSIS

  use Alzabo::Utils;

  if ( Alzabo::Utils::safe_can( $maybe_obj, 'method' ) { }

  if ( Alzabo::Utils::safe_isa( $maybe_obj, 'Class' ) { }

=head1 DESCRIPTION

This module contains a few utility functions for the use of other
Alzabo modules.

=head1 AUTHOR

Dave Rolsky, <dave@urth.org>

=cut