sub
transactions {
my
(
$self
,
$params
) =
@_
;
my
$raw_transactions
=
$self
->call_api(
'transactions'
, {
characterID
=>
$self
->character_id,
beforeTransID
=>
$self
->before_trans_id });
my
@transactions
;
foreach
my
$trans
(@{
$raw_transactions
->{transactions}}) {
push
(
@transactions
,
bless
({
_trans_for
=>
$trans
->{transactionFor},
_trans_type_name
=>
$trans
->{typeName},
_trans_type
=>
$trans
->{transactionType},
_trans_quantity
=>
$trans
->{quantity},
_trans_station_id
=>
$trans
->{stationID},
_trans_client_id
=>
$trans
->{clientID},
_trans_client_name
=>
$trans
->{clientName},
_trans_type_id
=>
$trans
->{typeID},
_trans_id
=>
$trans
->{transactionID},
_trans_price
=>
$trans
->{price},
_trans_time
=>
&WebService::EveOnline::Cache::_evedate_to_epoch
(
$trans
->{transactionDateTime}),
_trans_station_name
=>
$trans
->{stationName},
},
ref
(
$self
)));
}
return
@transactions
;
}
sub
transaction_hashref {
my
(
$self
) =
@_
;
return
{
transaction_for
=>
$self
->{_trans_for},
transaction_type_name
=>
$self
->{_trans_type_name},
transaction_type
=>
$self
->{_trans_type},
transaction_quantity
=>
$self
->{_trans_quantity},
transaction_station_id
=>
$self
->{_trans_station_id},
transaction_client_id
=>
$self
->{_trans_client_id},
transaction_client_name
=>
$self
->{_trans_client_name},
transaction_type_id
=>
$self
->{_trans_type_id},
transaction_id
=>
$self
->{_trans_id},
transaction_price
=>
$self
->{_trans_price},
transaction_time
=>
$self
->{_trans_time},
transaction_station_name
=>
$self
->{_trans_station_name},
};
}
sub
transaction_for {
my
(
$self
) =
@_
;
return
$self
->{_trans_for};
}
sub
transaction_type_name {
my
(
$self
) =
@_
;
return
$self
->{_trans_type_name};
}
sub
transaction_type {
my
(
$self
) =
@_
;
return
$self
->{_trans_type};
}
sub
transaction_quantity {
my
(
$self
) =
@_
;
return
$self
->{_trans_quantity};
}
sub
transaction_station_id {
my
(
$self
) =
@_
;
return
$self
->{_trans_station_id};
}
sub
transaction_client_id {
my
(
$self
) =
@_
;
return
$self
->{_trans_client_id};
}
sub
transaction_client_name {
my
(
$self
) =
@_
;
return
$self
->{_trans_client_name};
}
sub
transaction_type_id {
my
(
$self
) =
@_
;
return
$self
->{_trans_type_id};
}
sub
transaction_id {
my
(
$self
) =
@_
;
return
$self
->{_trans_id};
}
sub
transaction_price {
my
(
$self
) =
@_
;
return
$self
->{_trans_price};
}
sub
transaction_time {
my
(
$self
) =
@_
;
return
$self
->{_trans_time};
}
sub
transaction_station_id {
my
(
$self
) =
@_
;
return
$self
->{_trans_station_id};
}
sub
before_trans_id {
my
(
$self
,
$before_trans_id
) =
@_
;
$self
->{_before_trans_id} =
$before_trans_id
if
$before_trans_id
;
return
$self
->{_before_trans_id} ||
undef
;
}
sub
account_key {
my
(
$self
,
$account_key
) =
@_
;
$self
->{_account_key} =
$account_key
if
$account_key
;
return
$self
->{_account_key} || 1000;
}
1;