package SOAPjr::base;

use strict;
use warnings;

=head1 NAME

SOAPjr::base - base class for SOAPjr objects 

=head1 VERSION

Version 1.0.1

=cut

our $VERSION = "1.0.1";

=head1 SYNOPSIS

    See perldoc SOAPjr for more info.

=cut

use JSON;
$JSON::UnMapping = 1;

sub new {
    my $self  = {};
    my $class = shift;
    bless $self, $class;
    $self->{_data}             = {};
    $self->{MOBject_structure} = {
        ENVELOPE => 1,
        BODY     => 1,
        HEAD     => 1,
        OPTIONS  => 1
    };
    $self->{json} = JSON->new();
    return $self->_init(@_);
}

sub _init {
    my $self = shift;
    return $self;
}

sub set {
    my $self  = shift;
    my $input = shift || undef;
    my $count = shift;

    if ($input) {
        foreach my $structure ( keys %{ $self->{MOBject_structure} } ) {
            if ( exists $input->{$structure} ) {
                if (ref($input->{$structure}) eq 'HASH') {
                    foreach my $item ( keys %{ $input->{$structure} } ) {
                        $self->{_data}->{$structure}->{$item} =
                          $input->{$structure}->{$item};
                        $count++;
                    }
                } else {
                    $self->{_data}->{$structure} = $input->{$structure};
                    $count++;
                }
            }
        }
    }

    return $count;
}

sub get {
    my $self = shift;
    my $param = shift || undef;
    if ($param) {
        if ( $self->{_data}->{$param} ) {
            return $self->{_data}->{$param};
        } else {
            return {};
        }
    } else {
        return $self->{_data};
    }
}

sub set_all {
    my $self  = shift;
    my $input = shift;
    if ($input) {
        $self->{_data} = $input;
        return 1;
    } else {
        return 0;
    }
}

=head1 AUTHOR

Rob Manson, <robman[at]cpan.org>

=head1 BUGS

Please report any bugs or feature requests to C<bug-soapjr at rt.cpan.org>, or through
the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=SOAPjr>.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.




=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc SOAPjr


You can also look for information at:

=over 4

=item * SOAPjr.org 

L<http://SOAPjr.org>

=item * RT: CPAN's request tracker

L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=SOAPjr>

=item * AnnoCPAN: Annotated CPAN documentation

L<http://annocpan.org/dist/SOAPjr>

=item * CPAN Ratings

L<http://cpanratings.perl.org/d/SOAPjr>

=item * Search CPAN

L<http://search.cpan.org/dist/SOAPjr/>

=back

=head1 ACKNOWLEDGEMENTS

See L<http://SOAPjr.org/specs.html> for further information on related RFC's and specifications.

=head1 COPYRIGHT & LICENSE

    Copyright 2008 Rob Manson, Sean McCarthy and http://SOAPjr.org, some rights reserved.

    This file is part of SOAPjr.

    SOAPjr 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, either version 3 of the License, or
    (at your option) any later version.

    SOAPjr is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with SOAPjr.  If not, see <http://www.gnu.org/licenses/>.

=cut

1;