File Coverage

blib/lib/WWW/WolframAlpha/AssumptionValue.pm

Criterion	Covered	Total	%
statement	9	29	31.0
branch	0	12	0.0
condition	0	14	0.0
subroutine	3	8	37.5
pod	0	5	0.0
total	12	68	17.6

package WWW::WolframAlpha::AssumptionValue;

use 5.008008;
use strict;
use warnings;

require Exporter;

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 = {};

    my ($name,$desc,$input,$valid);

    if ($xmlo) {
	$name = $xmlo->{'name'} || undef;
	$desc = $xmlo->{'desc'} || undef;
	$input = $xmlo->{'input'} || undef;
	$valid = $xmlo->{'valid'} || undef;

	$self->{'name'} = $name if defined $name;
	$self->{'desc'} = $desc if defined $desc;
	$self->{'input'} = $input if defined $input;

	if (defined $valid && $valid eq 'true') {
	    $self->{'valid'} = 1;
	} elsif (defined $valid && $valid eq 'false') {
	    $self->{'valid'} = 0;
	}
    }

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

sub name {shift->{'name'};}
sub desc {shift->{'desc'};}
sub input {shift->{'input'};}
sub valid {shift->{'valid'};}

# Preloaded methods go here.

1;


=pod

=head1 NAME

WWW::WolframAlpha::AssumptionValue

=head1 VERSION

version 1.10

=head1 SYNOPSIS

    foreach my $value (@{$assumption->value}) {
      print '    ', $value->name, ', ', $value->desc, ' (', $value->input, ') ', "\n";
      print '     valid: ', $value->valid, "\n" if defined $value->valid;
    }

=head1 DESCRIPTION

=head2 ATTRIBUTES

$value->name

$value->desc

$value->input

$value->valid

=head2 EXPORT

None by default.

=head1 NAME

WWW::WolframAlpha::AssumptionValue - Perl objects returned via $assumption->value

=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__