Apache-Wombat

 view release on metacpan or  search on metacpan

docs/api/Apache/Wombat/FileLogger.html  view on Meta::CPAN

<P>
<HR>
<H1><A NAME="constructor">CONSTRUCTOR</A></H1>
<DL>
<DT><STRONG><A NAME="item_new"><CODE>new()</CODE></A></STRONG><BR>
<DD>
Construct and return a <STRONG>Wombat::Logger::FileLogger</STRONG> instance,
initializing fields appropriately. If subclasses override the
constructor, they must be sure to call
<PRE>
  $self-&gt;SUPER::new();</PRE>
<P></P></DL>
<P>
<HR>
<H1><A NAME="accessor methods">ACCESSOR METHODS</A></H1>
<DL>
<DT><STRONG><A NAME="item_getFilename"><CODE>getFilename()</CODE></A></STRONG><BR>
<DD>
Return the name of the file that is the log destination.
<P></P>
<DT><STRONG><A NAME="item_setFilename"><CODE>setFilename($filename)</CODE></A></STRONG><BR>

lib/Apache/Wombat/FileLogger.pm  view on Meta::CPAN

=head1 CONSTRUCTOR

=over

=item new()

Construct and return a B<Wombat::Logger::FileLogger> instance,
initializing fields appropriately. If subclasses override the
constructor, they must be sure to call

  $self->SUPER::new();

=back

=cut

sub new {
    my $self = shift;

    $self = fields::new($self) unless ref $self;
    $self->SUPER::new();

    $self->{fh} = undef;
    $self->{filename} = undef;

    return $self;
}

=pod

=head1 ACCESSOR METHODS

lib/Apache/Wombat/FileLogger.pm  view on Meta::CPAN

if the file cannot be opened

=back

=cut

sub start {
    my $self = shift;

    $self->SUPER::start();

    # ungh dum
    undef $self->{started};

    $self->{fh} = Apache::LogFile->new($self->{filename}) or do {
        my $msg = "cannot open $self->{filename}";
        throw Wombat::LifecycleException->new($msg, $!);
    };

    $self->{started} = 1;

lib/Apache/Wombat/FileLogger.pm  view on Meta::CPAN

if the file cannot be closed

=back

=cut

#  sub stop {
#      my $self = shift;

#      $self->SUPER::stop();

#      $self->{fh}->close or do {
#          my $msg = "cannot close $self->{filename}";
#          throw Wombat::LifecycleException->new($msg, $!);
#      };

#      return 1;
#  }

1;

lib/Apache/Wombat/Logger.pm  view on Meta::CPAN

the specified Apache server log.

=back

=cut

sub new {
    my $self = shift;

    $self = fields::new($self) unless ref $self;
    $self->SUPER::new();

    $self->{slog} = Apache->server()->log();

    return $self;
}

=pod

=head1 PUBLIC METHODS

lib/Apache/Wombat/Request.pm  view on Meta::CPAN

Create and return an instance, initializing fields to default values.

=back

=cut

sub new {
    my $self = shift;

    $self = fields::new($self) unless ref $self;
    $self->SUPER::new(@_);

    return $self;
}

=pod

=head1 METHODS

=over

lib/Apache/Wombat/Request.pm  view on Meta::CPAN

=item recycle()

Release all object references and initialize instances variables in
preparation for use or reuse of this object.

=cut

sub recycle {
    my $self = shift;

    $self->SUPER::recycle();

    $self->{apr} = undef;

    return 1;
}

1;
__END__

=pod

lib/Apache/Wombat/Response.pm  view on Meta::CPAN

=back

=cut

sub new {
    my $self = shift;
    my $apr = shift;

    $self = fields::new($self) unless ref $self;
    $self->SUPER::new(@_);

    return $self;
}

=pod

=head1 METHODS

=over

lib/Apache/Wombat/Response.pm  view on Meta::CPAN

=item recycle()

Release all object references and initialize instances variables in
preparation for use or reuse of this object.

=cut

sub recycle {
    my $self = shift;

    $self->SUPER::recycle();

    $self->{apr} = undef;

    return 1;
}

1;
__END__

=pod