Leser: 1
|< 1 2 >| | 13 Einträge, 2 Seiten |
1
2
3
4
5
6
my $pq = PerlUser->new();
$pq->car( Car->new(type => 'random') );
my $fuel = $pq->car()->type_of_fuel();
my %fuels = (qw/Super Normal Normal Diesel Diesel Super/);
$fuel = exists $fuels{$fuel} ? $fuels{$fuel} : [keys %fuels]->[rand scalar(keys %fuels)];
$pq->car()->refuel($fuel);
|< 1 2 >| | 13 Einträge, 2 Seiten |