version 1.1, 2011/03/19 23:27:16 |
version 1.2, 2011/03/20 02:34:42 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $AFresh1$ |
# $AFresh1: test.pl,v 1.1.1.1 2011/03/19 22:27:16 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
|
|
{ |
{ |
id => 60, |
id => 60, |
title => '60: A Special Project', |
title => '60: A Special Project', |
|
detail => 'Requestors jdoe@example.net', |
fees => [ |
fees => [ |
{ |
{ |
contents => '2011-01-01: Talk a lot (727)', |
contents => '2011-01-01: Talk a lot (727)', |
|
detail => 'This is detail about 727', |
count => 0.33, |
count => 0.33, |
rate => 75, |
rate => 75, |
}, |
}, |
{ |
{ |
contents => '2011-01-15: Write Stuff (730)', |
contents => '2011-01-15: Write Stuff (730)', |
|
detail => 'This is detail about 730', |
count => 1.5, |
count => 1.5, |
rate => 100, |
rate => 100, |
}, |
}, |
|
|
{ |
{ |
id => 65, |
id => 65, |
title => '65: More work!', |
title => '65: More work!', |
|
detail => 'Requestors jdoe@example.net', |
fees => [ |
fees => [ |
{ |
{ |
contents => '2011-01-06: Define Project (751)', |
contents => '2011-01-06: Define Project (751)', |
|
|
{ |
{ |
id => 85, |
id => 85, |
title => '85: Replace stuff', |
title => '85: Replace stuff', |
|
detail => 'Requestors maintenance@example.net', |
fees => [ |
fees => [ |
{ |
{ |
contents => '2011-01-13: Go unplug, replace, replug (834)', |
contents => '2011-01-13: Go unplug, replace, replug (834)', |