package Toader::Render::supportedObjects;

use warnings;
use strict;
use base 'Error::Helper';

=head1 NAME

Toader::Render::supportedObjects - This checks if a object is supported or not for rendering.

=head1 VERSION

Version 0.0.0

=cut

our $VERSION = '0.0.0';

=head1 SYNOPSIS

=head1 METHODS

=head2 new

This initiates the object.

	my $foo=Toader::Render::supportedObjects->new;
    if($foo->error){
        warn('error: '.$foo->error.":".$foo->errorString);
    }

=cut

sub new{
	my $self={
			  error=>undef,
			  errorString=>'',
			  perror=>undef,
			  };
	bless $self;

	return $self;
}

=head2 isSupported

This checks if a object is supported or not.

One argument is required and it is the object to check.

Error checking is only needed as long as what is passed
is known to be defined.

    my $supported=$foo->isSupported( $obj );
    if ( $foo->error ){
        warn( 'Error:'.$foo->error.': '.$foo->errorString );
    }else{
        if ( $supported ){
            print "The object is supported.\n";
        }
    }

=cut

sub isSupported{
	my $self=$_[0];
	my $obj=$_[1];

	$self->errorblank;

	if ( ! defined( $obj ) ){
		$self->{error}=1;
		$self->{errorString}='No object passed';
		$self->warn;
		return undef;
	}

	my $toaderRenderable=0;
	eval( '$toaderRenderable=$obj->toaderRenderable;' );

	return $toaderRenderable;
}

=head1 ERROR CODES

=head2 1

No object has been passed.

=head1 AUTHOR

Zane C. Bowers-Hadley, C<< <vvelox at vvelox.net> >>

=head1 BUGS

Please report any bugs or feature requests to C<bug-toader at rt.cpan.org>, or through
the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Toader>.  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 Toader::Render::supportedObjects

You can also look for information at:

=over 4

=item * RT: CPAN's request tracker

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

=item * AnnoCPAN: Annotated CPAN documentation

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

=item * CPAN Ratings

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

=item * Search CPAN

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

=back

=head1 ACKNOWLEDGEMENTS

=head1 LICENSE AND COPYRIGHT

Copyright 2011. Zane C. Bowers-Hadley.

This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.

=cut

1; # End of Toader::Render::supportedObjects