/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
|