File Coverage

blib/lib/Metaweb/Result.pm

Criterion	Covered	Total	%
statement	6	10	60.0
branch			n/a
condition			n/a
subroutine	2	3	66.6
pod	1	1	100.0
total	9	14	64.2

package Metaweb::Result;

use strict;
use warnings;

=head1 NAME

Metaweb::Result - Result set from a Metaweb query

=head1 SYNOPSIS

    my $mw = Metaweb->new($args);
    $mw->login();

    my $result = $mw->query($name, $query_hash);
    # $result isa Metaweb::Result

    use Data::Dumper;
    print Dumper $result;

=head1 DESCRIPTION

This class doesn't do much of anything yet.  It just gives you an object
you can treat as a hashref.

=head2 new()

Simple constructor.  Takes a result as a perl data structure and
basically just turns it into a Metaweb::Result object.

=cut

sub new {
    my ($class, $result) = @_;
    my $self = { content => $result };
    bless $self, $class;
    return $self;
}

=head1 SEE ALSO

L

=cut

1;