File Coverage

lib/File/DataClass/Constants.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	4	4	100.0
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	32	32	100.0

package File::DataClass::Constants;

use strict;
use warnings;

use Exporter 5.57 qw( import );
use File::DataClass::Exception;

our @EXPORT = qw( ARRAY CODE CYGWIN EXCEPTION_CLASS FALSE HASH LANG
                  LOCALIZE LOCK_BLOCKING LOCK_NONBLOCKING MSOFT NO_UMASK_STACK
                  NUL PERMS SPC STAT_FIELDS STORAGE_BASE STORAGE_EXCEPTIONS
                  TILDE TRUE );

my $_exception_class = 'File::DataClass::Exception';

sub ARRAY    () { 'ARRAY'    }
sub CODE     () { 'CODE'     }
sub CYGWIN   () { 'cygwin'   }
sub FALSE    () { 0          }
sub HASH     () { 'HASH'     }
sub LANG     () { 'en'       }
sub LOCALIZE () { '[_'       }
sub MSOFT    () { 'mswin32'  }
sub NUL      () { q()        }
sub PERMS    () { oct '0640' }
sub SPC      () { ' '        }
sub TILDE    () { '~'        }
sub TRUE     () { 1          }

sub EXCEPTION_CLASS    () { __PACKAGE__->Exception_Class }
sub LOCK_BLOCKING      () { 1 }
sub LOCK_NONBLOCKING   () { 2 }
sub NO_UMASK_STACK     () { -1 }
sub STAT_FIELDS        () { qw( device inode mode nlink uid gid device_id
                                size atime mtime ctime blksize blocks ) }
sub STORAGE_BASE       () { 'File::DataClass::Storage' }
sub STORAGE_EXCEPTIONS () { 'File::DataClass::Storage::WithLanguage' }

sub Exception_Class {
   my ($self, $class) = @_; defined $class or return $_exception_class;

   $class->can( 'throw' )
       or die "Class '${class}' is not loaded or has no 'throw' method";

   return $_exception_class = $class;
}

1;

__END__