package CCDB::Log;

use strict;

our @ISA = qw(CCDB);

sub new
{
    my ($class, $row) = @_;

    bless $row, $class;
}

 

our $AUTOLOAD;
sub AUTOLOAD
{
    my ($this) = @_;

    $AUTOLOAD =~ /DESTROY$/ && return;
    $AUTOLOAD =~ /::get_(.*)/ || die "No such method: $AUTOLOAD";
    my $data = $1;

    die "No such method: $AUTOLOAD"
	unless defined $this->{$data};

    $this->{$data};
}    

1;
