blob: 9638eb58ed9af0492ad1dfa86b6dbfe609fc2e2e (
plain)
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
92
93
94
95
96
97
98
99
100
|
package Dancer2::Serializer::YAML;
# ABSTRACT: Serializer for handling YAML data
$Dancer2::Serializer::YAML::VERSION = '1.0.0';
use Moo;
use Carp 'croak';
use Encode;
use Module::Runtime 'use_module';
use Sub::Defer;
with 'Dancer2::Core::Role::Serializer';
has '+content_type' => ( default => sub {'text/x-yaml'} );
# deferred helpers. These are called as class methods, but need to
# ensure YAML is loaded.
my $_from_yaml = defer_sub 'Dancer2::Serializer::YAML::from_yaml' => sub {
use_module('YAML');
sub { __PACKAGE__->deserialize(@_) };
};
my $_to_yaml = defer_sub 'Dancer2::Serializer::YAML::to_yaml' => sub {
use_module('YAML');
sub { __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 1.0.0
=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) 2023 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
|
