-
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;