/usr/share/perl5/Dancer2/Serializer/YAML.pm is in libdancer2-perl 0.204002+dfsg-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 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 | package Dancer2::Serializer::YAML;
# ABSTRACT: Serializer for handling YAML data
$Dancer2::Serializer::YAML::VERSION = '0.204002';
use Moo;
use Carp 'croak';
use Encode;
use Module::Runtime 'use_module';
with 'Dancer2::Core::Role::Serializer';
has '+content_type' => ( default => sub {'text/x-yaml'} );
# helpers
sub from_yaml { __PACKAGE__->deserialize(@_) }
sub to_yaml { __PACKAGE__->serialize(@_) }
# class definition
sub BUILD { use_module('YAML') }
sub serialize {
my ( $self, $entity ) = @_;
encode('UTF-8', YAML::Dump($entity));
}
sub deserialize {
my ( $self, $content ) = @_;
YAML::Load(decode('UTF-8', $content));
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Dancer2::Serializer::YAML - Serializer for handling YAML data
=head1 VERSION
version 0.204002
=head1 DESCRIPTION
This is a serializer engine that allows you to turn Perl data structures into
YAML output and vice-versa.
=head1 ATTRIBUTES
=head2 content_type
Returns 'text/x-yaml'
=head1 METHODS
=head2 serialize($content)
Serializes a data structure to a YAML structure.
=head2 deserialize($content)
Deserializes a YAML structure to a data structure.
=head1 FUNCTIONS
=head2 fom_yaml($content)
This is an helper available to transform a YAML data structure to a Perl data structures.
=head2 to_yaml($content)
This is an helper available to transform a Perl data structure to YAML.
Calling this function will B<not> trigger the serialization's hooks.
=head1 AUTHOR
Dancer Core Developers
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2016 by Alexis Sukrieh.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|