package Wx::Data::Request;
use strict;
use warnings;
no strict 'refs';
use Data::Dumper;
use base qw/Class::Accessor::Fast/;
sub debug {0}
__PACKAGE__->mk_accessors(
qw/id content parameters priority delay type is_valid control/
);
sub new {
my $class = shift;
my $self = $class->NEXT::new(@_);
$self->priority('post') unless defined $self->priority;
$self->delay(0) unless defined $self->delay;
$self->type('request') unless defined $self->type;
$self->is_valid(1) unless defined $self->is_valid;
return $self;
}
sub prepare {
my $request = @_;
return $request;
}
1;
__END__
=head1 AUTHORS
Ed Heil <ed@donorware.com>
Mike Schroeder <mike@donorware.com>
Eriam Schaffter <eriam@cpan.org>
=head1 SEE ALSO
POE, LWP
=cut
# HISTORY:
#
# $Log: Request.pm,v $
# Revision 1.2 2007/06/01 18:18:27 eriam
# VICCI Tkt#:0
# Added a is_valid accessor so the request can be discarded by plugins.
#
# Revision 1.1 2007/05/19 18:27:16 eriam
# VICCI Tkt#:0
# new architecture for Wx::Data's cpan realease
#