/usr/local/CPAN/Log-Dispatch-Binlog/Log/Dispatch/Binlog/Base.pm

• package Log::Dispatch::Binlog::Base
  • new
  • _storable_print
• __END__
• EOF

#!/usr/bin/perl

package Log::Dispatch::Binlog::Base;

use strict;

use Storable qw(nstore_fd);

sub new { die "abstract class" }

sub _storable_print {
	my ( $self, $fh, $p ) = @_;
	nstore_fd( $p, $fh );
}

__PACKAGE__

__END__