aboutsummaryrefslogtreecommitdiffstats
path: root/lib/WWW/StrawViewer/ParseJSON.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/WWW/StrawViewer/ParseJSON.pm')
-rw-r--r--lib/WWW/StrawViewer/ParseJSON.pm76
1 files changed, 0 insertions, 76 deletions
diff --git a/lib/WWW/StrawViewer/ParseJSON.pm b/lib/WWW/StrawViewer/ParseJSON.pm
deleted file mode 100644
index e2e7d65..0000000
--- a/lib/WWW/StrawViewer/ParseJSON.pm
+++ /dev/null
@@ -1,76 +0,0 @@
-package WWW::StrawViewer::ParseJSON;
-
-use utf8;
-use 5.014;
-use warnings;
-
-=head1 NAME
-
-WWW::StrawViewer::ParseJSON - Parse JSON content.
-
-=head1 SYNOPSIS
-
- use WWW::StrawViewer::ParseJSON;
- my $obj = WWW::StrawViewer::ParseJSON->new(%opts);
-
-=head1 SUBROUTINES/METHODS
-
-=cut
-
-=head2 parse_json_string($json_string)
-
-Parse a JSON string and return a HASH ref.
-
-=cut
-
-sub parse_json_string {
- my ($self, $json) = @_;
-
- if (not defined($json) or $json eq '') {
- return {};
- }
-
- require JSON;
- my $hash = eval { JSON::decode_json($json) };
- return $@ ? do { warn "[JSON]: $@\n"; {} } : $hash;
-}
-
-=head2 make_json_string($ref)
-
-Create a JSON string from a HASH or ARRAY ref.
-
-=cut
-
-sub make_json_string {
- my ($self, $ref) = @_;
-
- require JSON;
- my $str = eval { JSON::encode_json($ref) };
- return $@ ? do { warn "[JSON]: $@\n"; '' } : $str;
-}
-
-=head1 AUTHOR
-
-Trizen, C<< <echo dHJpemVuQHByb3Rvbm1haWwuY29tCg== | base64 -d> >>
-
-
-=head1 SUPPORT
-
-You can find documentation for this module with the perldoc command.
-
- perldoc WWW::StrawViewer::ParseJSON
-
-
-=head1 LICENSE AND COPYRIGHT
-
-Copyright 2013-2015 Trizen.
-
-This program is free software; you can redistribute it and/or modify it
-under the terms of either: the GNU General Public License as published
-by the Free Software Foundation; or the Artistic License.
-
-See L<http://dev.perl.org/licenses/> for more information.
-
-=cut
-
-1; # End of WWW::StrawViewer::ParseJSON