lib/Arh/Test.pm

package Arh::Test;

use strict;
use warnings;

my $uid = 0;

sub unique {
        my ( $self, $value ) = @_;
        return $value . ' ' . $uid++;
}

sub Place {
        my $self = shift;

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

sub Campaign {
        my $self = shift;

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

        return $campaign;
}

sub Unit {
        my $self = shift;

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

        return $unit;

}

sub PictureType {
        my $self = shift;

        my $type = Arh::Model::PictureType->new;
        $type->create(
                name => $self->unique('slika'),
        ) || die "can't create";

        return $type;

}

sub Picture {
        my $self = shift;

        my $picture = Arh::Model::Picture->new;
        $picture->create(
                filename => $self->unique('foo') . '.jpg',
                campaign => $self->Campaign,
                type => $self->PictureType,
        ) || die "can't create";

        return $picture;
}

1;
1	dpavlin	27	package Arh::Test;
2
3			use strict;
4			use warnings;
5
6	dpavlin	28	my $uid = 0;
7	dpavlin	27
8	dpavlin	28	sub unique {
9			my ( $self, $value ) = @_;
10			return $value . ' ' . $uid++;
11			}
12	dpavlin	27
13	dpavlin	28	sub Place {
14			my $self = shift;
15
16	dpavlin	27	my $place = Arh::Model::Place->new;
17			$place->create(
18	dpavlin	28	name => $self->unique('mjesto iskapanja'),
19			) \|\| die "can't create";
20			return $place;
21			}
22	dpavlin	27
23	dpavlin	28	sub Campaign {
24			my $self = shift;
25
26	dpavlin	27	my $campaign = Arh::Model::Campaign->new;
27			$campaign->create(
28	dpavlin	28	place => $self->Place,
29			name => $self->unique('iskapanje'),
30	dpavlin	27	date_from => '2007-11-28',
31			date_to => '2008-03-15',
32	dpavlin	28	) \|\| die "can't create";
33	dpavlin	27
34	dpavlin	28	return $campaign;
35			}
36
37			sub Unit {
38			my $self = shift;
39
40	dpavlin	27	my $unit = Arh::Model::Unit->new;
41			$unit->create(
42	dpavlin	28	name => $self->unique('test unit'),
43	dpavlin	39	inventory_nr => 42,
44	dpavlin	28	campaign => $self->Campaign,
45			) \|\| die "can't create";
46	dpavlin	27
47			return $unit;
48
49			}
50
51	dpavlin	28	sub PictureType {
52			my $self = shift;
53
54			my $type = Arh::Model::PictureType->new;
55			$type->create(
56			name => $self->unique('slika'),
57			) \|\| die "can't create";
58
59			return $type;
60
61			}
62
63			sub Picture {
64			my $self = shift;
65
66			my $picture = Arh::Model::Picture->new;
67			$picture->create(
68			filename => $self->unique('foo') . '.jpg',
69			campaign => $self->Campaign,
70			type => $self->PictureType,
71			) \|\| die "can't create";
72
73			return $picture;
74			}
75
76	dpavlin	27	1;