lib/Arh/Test.pm

package Arh::Test;

use strict;
use warnings;


sub create_unit {

        my $place = Arh::Model::Place->new;
        $place->create(
                name => 'mjesto iskapanja',
        ) || die "can't create place";

        my $campaign = Arh::Model::Campaign->new;
        $campaign->create(
                place => $place,
                name => 'prvo iskapanje',
                date_from => '2007-11-28',
                date_to => '2008-03-15',
        ) || die "can't create capaign";

        my $unit = Arh::Model::Unit->new;
        $unit->create(
                name => 'test unit',
                inv_id => 42,
                campaign => $campaign,
        ) || die "can't create unit";

        return $unit;

}

1;
1	dpavlin	27	package Arh::Test;
2
3			use strict;
4			use warnings;
5
6
7			sub create_unit {
8
9			my $place = Arh::Model::Place->new;
10			$place->create(
11			name => 'mjesto iskapanja',
12			) \|\| die "can't create place";
13
14			my $campaign = Arh::Model::Campaign->new;
15			$campaign->create(
16			place => $place,
17			name => 'prvo iskapanje',
18			date_from => '2007-11-28',
19			date_to => '2008-03-15',
20			) \|\| die "can't create capaign";
21
22			my $unit = Arh::Model::Unit->new;
23			$unit->create(
24			name => 'test unit',
25			inv_id => 42,
26			campaign => $campaign,
27			) \|\| die "can't create unit";
28
29			return $unit;
30
31			}
32
33			1;