• VKontakte.pm

    369 370  
    160 160 unless ( ref $user ) {
    161 161 my $user_class = $state->{users}->profile_document_class;
    162 162 $user = $user_class->new( $keeper );
    163 my %props = map { $_->{attr} => $_ } $user->structure;
    163 164 $user->login( 'vkontakte:'.$user_info->{uid} );
    164 165 $user->name( $user_info->{last_name}.', '.$user_info->{first_name} );
    165 166 $user->nickname( $user_info->{nickname} );
    166 167 $user->status( 1 );
    167 168 $user->type( 0 );
    168 169 $user->login_method('vkontakte');
    169 $user->country( $user_info->{country} );
    170 if ( exists $props{country} ) {
    171 $user->country( $user_info->{country} );
    172 }
    170 173 $user->email( undef );
    171 174
    172 175 my ($prop_ava) = grep { $_->{attr} eq 'avatar' && $_->{type} eq 'image' } $user->structure;