[gitmo/MooseX-Storage.git] / lib / MooseX / Storage / Format / YAML.pm


package MooseX::Storage::Format::YAML;
use Moose::Role;

use Best [
    [ qw[YAML::Syck YAML] ], 
    [ qw[Load Dump] ]
];

requires 'pack';
requires 'unpack';

sub thaw {
    my ( $class, $json ) = @_;
    $class->unpack( Load($json) );
}

sub freeze {
    my $self = shift;
    Dump( $self->pack() );
}

1;

__END__

=pod

=head1 NAME

MooseX::Storage::Format::YAML

=head1 SYNOPSIS

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<freeze>

=item B<thaw ($json)>

=back

=head2 Introspection

=over 4

=item B<meta>

=back

=head1 BUGS

All complex software has bugs lurking in it, and this module is no 
exception. If you find a bug please either email me, or add the bug
to cpan-RT.

=head1 AUTHOR

Chris Prather E<lt>chris.prather@iinteractive.comE<gt>

Stevan Little E<lt>stevan.little@iinteractive.comE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright 2007 by Infinity Interactive, Inc.

L<http://www.iinteractive.com>

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut
Commit	Line	Data
6f0912d0	1
	2	package MooseX::Storage::Format::YAML;
	3	use Moose::Role;
	4
	5	use Best [
	6	[ qw[YAML::Syck YAML] ],
	7	[ qw[Load Dump] ]
	8	];
	9
	10	requires 'pack';
	11	requires 'unpack';
	12
	13	sub thaw {
	14	my ( $class, $json ) = @_;
	15	$class->unpack( Load($json) );
	16	}
	17
	18	sub freeze {
	19	my $self = shift;
	20	Dump( $self->pack() );
	21	}
	22
	23	1;
	24
	25	__END__
	26
	27	=pod
	28
	29	=head1 NAME
	30
	31	MooseX::Storage::Format::YAML
	32
	33	=head1 SYNOPSIS
	34
	35	=head1 DESCRIPTION
	36
	37	=head1 METHODS
	38
	39	=over 4
	40
	41	=item B<freeze>
	42
	43	=item B<thaw ($json)>
	44
	45	=back
	46
	47	=head2 Introspection
	48
	49	=over 4
	50
	51	=item B<meta>
	52
	53	=back
	54
	55	=head1 BUGS
	56
	57	All complex software has bugs lurking in it, and this module is no
	58	exception. If you find a bug please either email me, or add the bug
	59	to cpan-RT.
	60
	61	=head1 AUTHOR
	62
	63	Chris Prather E<lt>chris.prather@iinteractive.comE<gt>
	64
65	Stevan Little E<lt>stevan.little@iinteractive.comE<gt>
66
67	=head1 COPYRIGHT AND LICENSE
68
69	Copyright 2007 by Infinity Interactive, Inc.
70
71	L<http://www.iinteractive.com>
72
73	This library is free software; you can redistribute it and/or modify
74	it under the same terms as Perl itself.
75
76	=cut
77
78