/usr/share/perl5/Carp/Datum/Flags.pm is in libcarp-datum-perl 1:0.1.3-8.
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 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 | # -*- Mode: perl -*-
#
# $Id: Flags.pm,v 0.1 2001/03/31 10:04:36 ram Exp $
#
# Copyright (c) 2000-2001, Christophe Dehaudt & Raphael Manfredi
#
# You may redistribute only under the terms of the Artistic License,
# as specified in the README file that comes with the distribution.
#
# HISTORY
# $Log: Flags.pm,v $
# Revision 0.1 2001/03/31 10:04:36 ram
# Baseline for first Alpha release.
#
# $EndLog$
#
package Carp::Datum::Flags;
BEGIN {
sub DBG_ON () {1};
sub DBG_OFF () {0};
sub DTM_SET () {0};
sub DTM_CLEAR () {1};
sub DBG_ALL () {0xffffffff};
sub DBG_FLOW () {0x00000001}; # Control flow (entry/exit)
sub DBG_RETURN () {0x00000002}; # Trace return value
sub DBG_REQUIRE () {0x00000004}; # Check preconditions
sub DBG_ASSERT () {0x00000008}; # Check plain assertions
sub DBG_ENSURE () {0x00000010}; # Check postconditions
sub DBG_TRACE () {0x00000020}; # Emit trace messages
sub DBG_PANIC () {0x00000040}; # Panic on assertion failure
sub DBG_STACK () {0x00000080}; # Dump stack trace on assert failure
}
BEGIN {
sub TRC_ALL () {0xffffffff};
sub TRC_EMERGENCY () {0x00000001};
sub TRC_ALERT () {0x00000002};
sub TRC_CRITICAL () {0x00000004};
sub TRC_ERROR () {0x00000008};
sub TRC_WARNING () {0x00000010};
sub TRC_NOTICE () {0x00000020};
sub TRC_INFO () {0x00000040};
sub TRC_DEBUG () {0x00000080};
}
require Exporter;
use vars qw(@ISA @EXPORT);
@ISA = qw(Exporter);
@EXPORT = qw(
DBG_ON
DBG_OFF
DTM_SET
DTM_CLEAR
DBG_ALL
DBG_FLOW
DBG_RETURN
DBG_REQUIRE
DBG_ASSERT
DBG_ENSURE
DBG_TRACE
DBG_PANIC
DBG_STACK
TRC_ALL
TRC_EMERGENCY
TRC_ALERT
TRC_CRITICAL
TRC_ERROR
TRC_WARNING
TRC_NOTICE
TRC_INFO
TRC_DEBUG
);
1;
=head1 NAME
Carp::Datum::Flags - Flag Constants
=head1 SYNOPSIS
# Used internally to define debugging and tracing flag constants
=head1 DESCRIPTION
This module is used internally by C<Carp::Datum>. It defines the
constants that are exported and made available automatically to all
users of C<Carp::Datum>.
=head1 AUTHORS
Christophe Dehaudt and Raphael Manfredi are the original authors.
Send bug reports, hints, tips, suggestions to Dave Hoover at <squirrel@cpan.org>.
=head1 SEE ALSO
Carp::Datum(3).
=cut
|