File Coverage

blib/lib/WWW/WolframAlpha/States.pm

Criterion	Covered	Total	%
statement	15	43	34.8
branch	0	8	0.0
condition	0	6	0.0
subroutine	5	9	55.5
pod	0	4	0.0
total	20	70	28.5

package WWW::WolframAlpha::States;

use 5.008008;
use strict;
use warnings;

require Exporter;

use WWW::WolframAlpha::State;
use WWW::WolframAlpha::StateList;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use WWW::WolframAlpha ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(
);

our $VERSION = '1.0';

sub new {
    my $class = shift;
    my $xmlo = shift;

    my $self = {};

    $self->{'count'} = 0;

    my ($count,$states,$statelists);

    @{$self->{'state'}} = ();
    @{$self->{'statelist'}} = ();

    if ($xmlo) {
	$count = $xmlo->{'count'} || undef;
	$states = $xmlo->{'state'} || undef;
	$statelists = $xmlo->{'statelist'} || undef;

	$self->{'count'} = $count if defined $count;

	if (defined $states) {
	    foreach my $state (@{$states}) {
		push(@{$self->{'state'}}, WWW::WolframAlpha::State->new($state));
	    }
	}

	if (defined $statelists) {
	    foreach my $statelist (@{$statelists}) {
		push(@{$self->{'statelist'}}, WWW::WolframAlpha::StateList->new($statelist));
	    }
	}
    }


    return(bless($self, $class));
}

sub count {shift->{'count'};}
sub state {shift->{'state'};}
sub statelist {shift->{'statelist'};}

# Preloaded methods go here.

1;


=pod

=head1 NAME

WWW::WolframAlpha::States

=head1 VERSION

version 1.10

=head1 SYNOPSIS

    if ($pod->states->count) {
      foreach my $state (@{$pod->states->state}) {
        ...
      }

      foreach my $statelist (@{$pod->states->statelist}) {
        ...

      }
    }

=head1 DESCRIPTION

=head2 ATTRIBUTES

$states->count

=head2 SECTOINS

$states->state - array of L elements

$states->statelist - array of L elements

=head2 EXPORT

None by default.

=head1 NAME

WWW::WolframAlpha::States - Perl object returned via $pod->states

=head1 SEE ALSO

L

=head1 AUTHOR

Gabriel Weinberg, [e-mail]

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2009 by Gabriel Weinberg

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.8 or,
at your option, any later version of Perl 5 you may have available.

=head1 AUTHOR

Gabriel Weinberg

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2009 by Gabriel Weinberg.

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

=cut


__END__