package Yote::Test::TestAppNoLogin;
#
# created for the html unit tests
#
use strict;
use warnings;
use Yote::Obj;
use parent 'Yote::AppRoot';
use vars qw($VERSION);
$VERSION = '0.02';
#
# need subs to return : scalars, lists, hashes, g-objects
#
sub _init {
my $self = shift;
$self->set_File( undef );
}
sub scalar {
my( $self, $data, $acct ) = @_;
return "BEEP";
}
sub apply_zap {
my( $self, $data, $acct ) = @_;
$self->set_zap( $data );
}
sub reset {
my $self = shift;
$self->set_zap( undef );
$self->set_Files( [] );
$self->set_File( undef );
}
sub UpOne {
my( $self, $data, $acct ) = @_;
$self->set_File( $data->{somefile_3} );
}
sub Upload {
my( $self, $data, $acct ) = @_;
$self->add_to_Files( $data->{somefile} );
$self->add_to_Files( $data->{somefile_2} );
return '';
}
1;
__END__
=head1 DESCRIPTION
Program for unit tests
=head1 PUBLIC METHODS
=over 4
=item apply_zap
=item reset
=item scalar
=item UpOne
=item Upload
=back
=head1 AUTHOR
Eric Wolf
=head1 LICENSE AND COPYRIGHT
Copyright (C) 2011 Eric Wolf
This module is free software; it can be used under the same terms as perl
itself.
=cut