/usr/share/perl5/Rose/DB/Constants.pm is in librose-db-perl 0.777-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 42 43 44 45 46 | package Rose::DB::Constants;
use strict;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(IN_TRANSACTION);
use constant IN_TRANSACTION => -1;
1;
__END__
=head1 NAME
Rose::DB::Constants - Symbolic names for important Rose::DB constants.
=head1 SYNOPSIS
use Rose::DB::Constants qw(IN_TRANSACTION);
...
$ret = $db->begin_work or die $db->error;
...
unless($ret == IN_TRANSACTION)
{
$db->commit or die $db->error;
}
=head1 DESCRIPTION
This module contains and optionally exports symbolic names for important L<Rose::DB> constants. The only constant defined so far is C<IN_TRANSACTION>. See the documentation for L<Rose::DB>'s C<begin_work()> object method for more information on this constant.
This module inherits from C<Exporter>. No symbols are exported by default.
=head1 AUTHOR
John C. Siracusa (siracusa@gmail.com)
=head1 LICENSE
Copyright (c) 2010 by John C. Siracusa. All rights reserved. This program is
free software; you can redistribute it and/or modify it under the same terms
as Perl itself.
|