use warnings;
use strict;

my @delivs;
my $ini = 'wibble';

push @delivs, new Deliv ('deliverable ', $ini);
$delivs[-1]->dump ();


package Deliv;

use vars qw($AUTOLOAD);

sub new {
    my $class = shift;
    my $self = bless {}, $class;
    my ($dev_sec, $cfg) = @_;

    $self->{source}      = $dev_sec;
    $self->{related_job} = $cfg;
    return $self;
}


sub dump {
    my ($self) = @_;
    
    print "$_: $self->{$_}\n" for sort keys %$self;
}

##</code><code>##

related_job: wibble
source: deliverable