add fav count to !stats

lib/utils/db/stats.pm

@@ -14,6 +14,7 @@ has 'date'      => (is => 'ro', isa => 'Str');
 has 'count'     => (is => 'ro', isa => 'Int');
 has 'senders'   => (is => 'ro', isa => 'HashRef[Str]');
 has 'channels'  => (is => 'ro', isa => 'HashRef[Str]');
+has 'fav'       => (is => 'ro', isa => 'Int');
 
 
 around 'BUILDARGS' => sub {
@@ -49,6 +50,17 @@ around 'BUILDARGS' => sub {
         $count++;
     }
 
+    my $fav;
+    $sth = $dbh->prepare('
+        select count(*)
+        from playbot_fav
+        where id = ?
+    ');
+    $sth->execute($id);
+    while (my $row = $sth->fetch) {
+        $fav++;
+    }
+
     $dbh->commit;
 
     return $class->$orig(
@@ -57,7 +69,8 @@ around 'BUILDARGS' => sub {
         chan        => $chan,
         date        => $date,
         senders     => $senders,
-        channels  => $channels
+        channels    => $channels,
+        fav         => $fav,
     );
 };
 

lib/utils/print.pm

@@ -55,6 +55,7 @@ sub stats {
     my $line1; 
     my $line2;
     my $line3;
+    my $line4;
 
     $line1 .= 'Posté la 1re fois par '.$stats->sender;
     $line1 .= ' le '.$stats->date;
@@ -84,7 +85,13 @@ sub stats {
         }
     }
 
-    return ($line1, $line2, $line3);
+    if ($stats->fav) {
+        $line4 = "Sauvegardé dans ses favoris par ";
+        $line4 .= $stats->fav.' personne';
+        $line4 .= 's' if ($stats->fav > 1);
+    }
+
+    return ($line1, $line2, $line3, $line4);
 }
 
 1;