summaryrefslogtreecommitdiff
path: root/lib/StarGit/Graph.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/StarGit/Graph.pm')
-rw-r--r--lib/StarGit/Graph.pm9
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);