#!/usr/bin/perl

use strict;
use lib '../lib';
use everywhere 'MooseX::Declare; use 5.010',
  matching => '^EPFarms';

use DBI;
use EPFarms::DB;
use EPFarms::User;
use EPFarms::Transaction;
use EPFarms::Service::Basic;

my $db = EPFarms::DB->new;

my $bob = EPFarms::User->new(
  username => 'bob',
  name => 'Bob Builder',
  mysql_username => 'bob',
  external_email => 'bob@builder.co.uk',
  unixid => '1007',
  contact => 'bob@builder.co.uk',
);
my $basic_service = EPFarms::Service::Basic->new;
$bob->add_service($basic_service);
$db->add_user($bob);
$db->save;

my $transaction = EPFarms::Transaction->new(
  amount => 17,
  description => 'payment',
  reference_number => '777',
  user => $bob,
  # service
);
$bob->add_transaction($transaction);
$db->db->deep_update($bob);

print "Bob's transactions:";
use Data::Dumper;
print Dumper($bob->transactions);
use Data::Dumper;
print "Root set contains: " . Dumper($db->content);

print "Bob's balance: " . $bob->balance . "\n";
#$db->db->deep_update($db->content);

print "done!\n";