#!/usr/bin/perl -w
use strict;
use DBM::Deep;
use Data::Dumper;

my $DBM = DBM::Deep->new("deep.db") or die("Couldn't initialize DB");

$DBM->clear();
$DBM->optimize();

$DBM->{TASK_QUEUE} = {};
$DBM->{TASK_QUEUE}->{DEV} = [];

$DBM->{TASK_QUEUE}->{DEV}->push({CMD => "foo1", FILE => "bar1"});
$DBM->{TASK_QUEUE}->{DEV}->push({CMD => "foo2", FILE => "bar2"});

print Dumper(\$DBM);

my $task = $DBM->{TASK_QUEUE}->{DEV}->shift();
print Dumper(\$task);

print Dumper(\$DBM);

__END__

##</code><code>##

$VAR1 = \bless( {
  'TASK_QUEUE' => bless( {
      'DEV' => bless( [
         bless( {
           'FILE' => 'bar1',
           'CMD' => 'foo1'
         }, 'DBM::Deep' ),
         bless( {
           'FILE' => 'bar2',
           'CMD' => 'foo2'
         }, 'DBM::Deep' )
      ], 'DBM::Deep' )
   }, 'DBM::Deep' )
}, 'DBM::Deep' );

##</code><code>##

$VAR1 = \bless( {
                   'FILE' => 'bar1',
                   'CMD' => 'foo1'
                 }, 'DBM::Deep' );

##</code><code>##

$VAR1 = \bless( {
  'TASK_QUEUE' => bless( {
      'DEV' => bless( [
         bless( {
           'FILE' => 'bar1',
           'CMD' => 'foo1'
         }, 'DBM::Deep' )
      ], 'DBM::Deep' )
  }, 'DBM::Deep' )
}, 'DBM::Deep' );