percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-26 05:58:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

Condense lib/Percona/WebAPI/Representation/* into lib/Percona/WebAPI/Representation.pm since our MO doesn't support roles. Continue building pt-agent.

Browse Source
This commit is contained in:
Daniel Nichter
2012-12-25 12:20:06 -07:00
parent d035125729
commit 6f2d543653
3 changed files with 290 additions and 141 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
lib/Percona/WebAPI/Representation/HashRef.pm → lib/Percona/WebAPI/Representation.pm
View File

@@ -15,18 +15,18 @@
# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
# Place, Suite 330, Boston, MA 02111-1307 USA.
# ###########################################################################
# Percona::WebAPI::Representation::HashRef package
# Percona::WebAPI::Representation package
# ###########################################################################
{
package Percona::WebAPI::Representation::HashRef;
package Percona::WebAPI::Representation;
use Lmo::Role;
use JSON;
sub as_hashref {
my ($self) = @_;
my $resource = shift;
# Copy the object into a new hashref.
my $as_hashref = { %$self };
my $as_hashref = { %$resource };
# Delete the links because they're just for client-side use
# and the caller should be sending this object, not getting it.
@@ -35,8 +35,22 @@ sub as_hashref {
return $as_hashref;
}
sub as_json {
return encode_json(as_hashref(@_));
}
sub as_config {
my $as_hashref = as_hashref(@_);
my $config = join("\n",
map { defined $as_hashref->{$_} ? "$_=$as_hashref->{$_}" : "$_" }
sort keys %$as_hashref
) . "\n";
return $config;
}
1;
}
# ###########################################################################
# End Percona::WebAPI::Representation::HashRef package
# End Percona::WebAPI::Representation package
# ###########################################################################

43
lib/Percona/WebAPI/Representation/JSON.pm
View File

@@ -1,43 +0,0 @@
# This program is copyright 2012-2013 Percona Inc.
# Feedback and improvements are welcome.
#
# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
# MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
# This program is free software; you can redistribute it and/or modify it under
# the terms of the GNU General Public License as published by the Free Software
# Foundation, version 2; OR the Perl Artistic License. On UNIX and similar
# systems, you can issue `man perlgpl' or `man perlartistic' to read these
# licenses.
#
# You should have received a copy of the GNU General Public License along with
# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
# Place, Suite 330, Boston, MA 02111-1307 USA.
# ###########################################################################
# Percona::WebAPI::Representation::JSON package
# ###########################################################################
{
package Percona::WebAPI::Representation::JSON;
use Lmo::Role;
use JSON;
sub as_json {
my ($self) = @_;
# Copy the object into a new hashref.
my $as_hashref = { %$self };
# Delete the links because they're just for client-side use
# and the caller should be sending this object, not getting it.
delete $as_hashref->{links};
return encode_json($as_hashref);
}
1;
}
# ###########################################################################
# End Percona::WebAPI::Representation::JSON package
# ###########################################################################