WebService::EveOnline::API::Character

WebService-EveOnline documentation Contained in the WebService-EveOnline distribution.

Index

Code Index:

new

This is called under the hood when an $eve->character object is requested.

It returns an array of character objects for each characters available via your API key. You probably won't need to call this directly.

$character->hashref

Returns a character hashref on a character object containing the following keys:

   character_id
   character_name
   character_race
   character_gender
   character_bloodline
   corporation_name
   corporation_id

assets

Placeholder

kills

Placeholder

orders

Placeholder

$character->name

Returns the name of the current character based on the character object.

$character->id

Returns a character object based on the character id you provide, assuming your API key allows it.

$character->race

The race of the selected character.

$character->bloodline

The bloodline of the selected character.

$character->gender, sex

The gender of the selected character.

$character->attributes

Sets the base attributes held by the selected character.

$character->attributes->memory, $attributes->memory

Returns the base memory attribute of the current character

$character->attributes->intelligence, $attributes->intelligence

Returns the base intelligence attribute of the current character

$character->attributes->charisma, $attributes->charisma

Returns the base charisma attribute of the current character

$character->attributes->perception, $attributes->perception

Returns the base perception attribute of the current character

$character->attributes->willpower, $attributes->willpower

Returns the base willpower attribute of the current character

$character->attributes->attr_hashref, $attributes->attr_hashref

Returns a hashref containing the base attributes of the current character with the following keys:

    memory
    intelligence
    charisma
    perception
    willpower

$character->attribute_enhancers

Returns a hash of hashes of the attribute enhancers held by the selected character. The interface to this is highly likely to change to be more consistent with the rest of the interface, so use with caution.

WebService-EveOnline documentation Contained in the WebService-EveOnline distribution. 
package WebService::EveOnline::API::Character;

use base qw/ WebService::EveOnline::Base /;

our $VERSION = "0.61";


sub new {
    my ($self, $c, $name) = @_;

    my $character_data = $self->call_api('character', {}, $c);

    # XML::Simple is a big pile of shit:
    $character_data = ($character_data->{name}) ? { $character_data->{name} => $character_data } : $character_data;

    my $characters = [];
    foreach my $character (sort keys %{$character_data}) {
        next if $character =~ /^_/; # skip meta keys
        
        my $char_obj = bless({ 
                 _character_name => $character, 
                 _corporation_name => $character_data->{$character}->{corporationName},
                 _corporation_id => $character_data->{$character}->{corporationID},
                 _character_id => $character_data->{$character}->{characterID},
                 _api_key => $c->{_api_key},
                 _user_id => $c->{_user_id},
                 _evecache => $c->{_evecache},
            }, __PACKAGE__ );
        
        if ($name) {
            return $char_obj if $char_obj->name eq $name;
        } else {
            push(@{$characters}, $char_obj);
        }
    }
    
    return @{$characters};
}


sub hashref {
    my ($self) = @_;
    return {
        character_name => $self->{_character_name},
        corporation_name => $self->{_corporation_name},
        character_id => $self->{_character_id},
        corporation_id => $self->{_corporation_id},
        character_race => $self->character_race,
        character_gender => $self->character_gender,
        character_bloodline => $self->character_bloodline,
    };
}


sub assets {
    my ($self, $params) = @_;
    my $assets = $self->call_api('assets', { characterID => $self->{_character_id} }, $self);
    return $assets;   
}


sub kills {
    my ($self, $params) = @_;
    my $kills = $self->call_api('kills', { characterID => $self->{_character_id} }, $self);
    return $kills;   
}


sub orders {
    my ($self, $params) = @_;
    my $orders = $self->call_api('orders', { characterID => $self->{_character_id} }, $self);
    return $orders;   
}


sub name {
    my ($self) = @_;
    return $self->{_character_name};
}


sub id {
    my ($self) = @_;
    return $self->{_character_id};      
}


sub race {
    my ($self, $params) = @_;
    my $race = $self->call_api('race', { characterID => $self->{_character_id} }, $self);
    return $race->{race};   
}


sub bloodline {
    my ($self, $params) = @_;
    my $bloodline = $self->call_api('bloodline', { characterID => $self->{_character_id} }, $self);
    return $bloodline->{bloodLine}; 
}


sub gender {
    my ($self, $params) = @_;
    my $gender = $self->call_api('gender', { characterID => $self->{_character_id} }, $self);
    return $gender->{gender};   
}

sub sex {
    my ($self, $params) = @_;
    my $gender = $self->call_api('gender', { characterID => $self->{_character_id} }, $self);
    return $gender->{gender};   
}


sub attributes {
    my ($self, $params) = @_;
    my $attributes = $self->call_api('attributes', { characterID => $self->{_character_id} }, $self);

    $self->{_attributes} = {
        _memory => $attributes->{memory},
        _intelligence => $attributes->{intelligence},
        _charisma => $attributes->{charisma},
        _perception => $attributes->{perception},
        _willpower => $attributes->{willpower},
    };

    return bless($self, __PACKAGE__);    
}


sub memory {
    my ($self) = @_;
    return $self->{_attributes}->{_memory};
}


sub intelligence {
    my ($self) = @_;
    return $self->{_attributes}->{_intelligence};
}


sub charisma {
    my ($self) = @_;
    return $self->{_attributes}->{_charisma};
}


sub perception {
    my ($self) = @_;
    return $self->{_attributes}->{_perception};
}


sub willpower {
    my ($self) = @_;
    return $self->{_attributes}->{_willpower};
}


sub attr_hashref {
    my ($self) = @_;
    return {
        memory => $self->{_attributes}->{_memory},  
        intelligence => $self->{_attributes}->{_intelligence},  
        charisma => $self->{_attributes}->{_charisma},  
        perception => $self->{_attributes}->{_perception},  
        willpower => $self->{_attributes}->{_willpower},  
    };
}


sub attribute_enhancers {
    my ($self, $params) = @_;
    my $enhancers = $self->call_api('enhancers', { characterID => $self->{_character_id} }, $self);
    return $enhancers;  
}

1;