view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

public/themes/dark/images/chat-1.png
public/themes/dark/images/chat-2.png
public/themes/dark/images/chat.png
public/themes/dark/images/idle.png
public/themes/dark/images/idle_black.png
public/themes/dark/images/loading.gif
public/themes/dark/images/online.png
public/themes/dark/images/online_black.png
public/themes/dark/images/options.png
public/themes/dark/images/subpanel_bar.png
public/themes/light/images/busy.png
public/themes/light/images/chat-1.png
public/themes/light/images/chat-2.png
public/themes/light/images/chat.png
public/themes/light/images/crrooms.png
public/themes/light/images/default_avatar.png
public/themes/light/images/default_room.png
public/themes/light/images/idle.png
public/themes/light/images/idle_black.png
public/themes/light/images/loading.gif
public/themes/light/images/mute.png

lib/Chat/iFly.pm  view on Meta::CPAN

    my ($self, $user) = @_;
    my $result = from_json($self->post('/p/', {
        api_key         => $self->api_key,
        uname           => $user->{name},
        uid             => $user->{id} || 0,
        image_path      => $self->static_asset_base_uri.'/themes/'.$self->theme.'/images',
        isLog           => JSON::true,
        whichTheme      => 'blue',
        enableStatus    => JSON::true,
        role            => $user->{is_admin} ? 'admin' : ((exists $user->{custom_roles}) ? $user->{custom_roles} : 'normal'),
        validState      => ['available','offline','busy','idle'],
        up              => (exists $user->{avatar_uri}) ? $user->{avatar_uri} : $self->static_asset_base_uri.'/themes/'.$self->theme.'/images/default_avatar.png',
        upl             => (exists $user->{profile_uri}) ? $user->{profile_uri} : '#',
        rel             => (exists $user->{relationships_set}) ? 1 : undef,
        valid_uids      => $user->{relationships_set},
    }));
    $result->{uid} = $user->{id} || 0;
    $result->{name} = $user->{name};
    return $result;
}