diff options
Diffstat (limited to 'lib/StarGit/Graph.pm')
| -rw-r--r-- | lib/StarGit/Graph.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/StarGit/Graph.pm b/lib/StarGit/Graph.pm index 1b9dd0a..488d07d 100644 --- a/lib/StarGit/Graph.pm +++ b/lib/StarGit/Graph.pm @@ -19,6 +19,12 @@ has name => ( isa => 'Str', ); +sub exists { + my ($self, $name) = @_; + my $info = $self->db_profiles->find_one( { login => $name } ); + $info; +} + sub neighbors { my ($self, $name) = @_; @@ -130,6 +136,9 @@ sub _create_edge { sub _get_info_from_login { my ($self, $login) = @_; my $info = $self->db_profiles->find_one( { login => $login } ); + + return undef if (!defined $info); + my $country = $info->{country} || 'null'; my $language = $info->{language} || 'null'; return ($country, $language); |
