/usr/share/perl5/DBIx/Class/Admin/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 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | package # hide from PAUSE
DBIx::Class::Admin::Types;
# Workaround for https://rt.cpan.org/Public/Bug/Display.html?id=83336
use warnings;
use strict;
use MooseX::Types -declare => [qw(
DBICConnectInfo
DBICArrayRef
DBICHashRef
)];
use MooseX::Types::Moose qw/Int HashRef ArrayRef Str Any Bool/;
use MooseX::Types::JSON qw(JSON);
subtype DBICArrayRef,
as ArrayRef;
subtype DBICHashRef,
as HashRef;
coerce DBICArrayRef,
from JSON,
via { _json_to_data ($_) };
coerce DBICHashRef,
from JSON,
via { _json_to_data($_) };
subtype DBICConnectInfo,
as ArrayRef;
coerce DBICConnectInfo,
from JSON,
via { return _json_to_data($_) } ;
coerce DBICConnectInfo,
from Str,
via { return _json_to_data($_) };
coerce DBICConnectInfo,
from HashRef,
via { [ $_ ] };
sub _json_to_data {
my ($json_str) = @_;
my $json = JSON::Any->new(allow_barekey => 1, allow_singlequote => 1, relaxed=>1);
my $ret = $json->jsonToObj($json_str);
return $ret;
}
1;
|