lib/Gitalist/Utils.pm

   1 package Gitalist::Utils;
   2 use strict;
   3 use warnings;
   4 use Exporter qw/import/;
   5
   6 our @EXPORT_OK = qw/
   7     age_string
   8 /;
   9
  10 sub age_string {
  11   my $age = shift;
  12   my $age_str;
  13
  14   if ( $age > 60 * 60 * 24 * 365 * 2 ) {
  15     $age_str  = ( int $age / 60 / 60 / 24 / 365 );
  16     $age_str .= " years ago";
  17   }
  18   elsif ( $age > 60 * 60 * 24 * ( 365 / 12 ) * 2 ) {
  19     $age_str  = int $age / 60 / 60 / 24 / ( 365 / 12 );
  20     $age_str .= " months ago";
  21   }
  22   elsif ( $age > 60 * 60 * 24 * 7 * 2 ) {
  23     $age_str  = int $age / 60 / 60 / 24 / 7;
  24     $age_str .= " weeks ago";
  25   }
  26   elsif ( $age > 60 * 60 * 24 * 2 ) {
  27     $age_str  = int $age / 60 / 60 / 24;
  28     $age_str .= " days ago";
  29   }
  30   elsif ( $age > 60 * 60 * 2 ) {
  31     $age_str  = int $age / 60 / 60;
  32     $age_str .= " hours ago";
  33   }
  34   elsif ( $age > 60 * 2 ) {
  35     $age_str  = int $age / 60;
  36     $age_str .= " min ago";
  37   }
  38   elsif ( $age > 2 ) {
  39     $age_str  = int $age;
  40     $age_str .= " sec ago";
  41   }
  42   else {
  43     $age_str .= " right now";
  44   }
  45   return $age_str;
  46 }
  47
  48 sub is_binary {
  49   my($str) = @_;
  50   open my $fh, '<', \$str or return;
  51   return -B $fh;
  52 }
  53
  54 1;
  55
  56 __END__
  57
  58 =head1 NAME
  59
  60 Gitalist::Utils - trivial utils for Gitalist
  61
  62 =head2 FUNCTIONS
  63
  64 =head2 age_string
  65
  66 Turns an integer number of seconds into a string.
  67
  68 =head2 is_binary
  69
  70 Check whether a string is binary according to C<-B>.
  71
  72 =head1 AUTHORS
  73
  74 See L<Gitalist> for authors.
  75
  76 =head1 LICENSE
  77
  78 See L<Gitalist> for the license.
  79
  80 =cut