Unnamed

package Luuppi::QueueItem;
use strict;
use warnings;
use DBI;
use Luuppi::Common;
use Luuppi::SQLItem;
use vars qw(@ISA);
@ISA = qw(Luuppi::SQLItem);

BEGIN {

        our @_columns = qw(id class user descr params state started ended);
        our @_idfield = 'id';
        our @_table   = 'queue';

        #my $write_permissions = $Luuppi::SQLItem::ALLOW_UPDATE;

}

package Luuppi::SQLItem;
use Luuppi::Common;

sub newFromId {
        my $class = shift;
        my $id    = shift;
        my $self  = Luuppi::Common->SQLConnection->selectrow_hashref("SELECT * F
ROM " . $class::_table . " WHERE " . $class::_idfield . " = ?", undef, ($id));

        bless $self,$class;
        return $self;
}

package main;
use Luuppi::Common;
use Luuppi::QueueItem;
use Data::Dumper;

my $obj = Luuppi::QueueItem->newFromId('1');
print Dumper($Luuppi::QueueItem::_idfield)."\n";
print Dumper($obj);