/usr/share/perl5/DBIx/Class/Storage/DBI/Replicated/Types.pm is in libdbix-class-perl 0.082840-3.
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 | package # hide from PAUSE
DBIx::Class::Storage::DBI::Replicated::Types;
# DBIx::Class::Storage::DBI::Replicated::Types - Types used internally by
# L<DBIx::Class::Storage::DBI::Replicated>
# Workaround for https://rt.cpan.org/Public/Bug/Display.html?id=83336
use warnings;
use strict;
use MooseX::Types
-declare => [qw/BalancerClassNamePart Weight DBICSchema DBICStorageDBI/];
use MooseX::Types::Moose qw/ClassName Str Num/;
use MooseX::Types::LoadableClass qw/LoadableClass/;
class_type 'DBIx::Class::Storage::DBI';
class_type 'DBIx::Class::Schema';
subtype DBICSchema, as 'DBIx::Class::Schema';
subtype DBICStorageDBI, as 'DBIx::Class::Storage::DBI';
subtype BalancerClassNamePart,
as LoadableClass;
coerce BalancerClassNamePart,
from Str,
via {
my $type = $_;
$type =~ s/\A::/DBIx::Class::Storage::DBI::Replicated::Balancer::/;
$type;
};
subtype Weight,
as Num,
where { $_ >= 0 },
message { 'weight must be a decimal greater than 0' };
1;
|