File Coverage

blib/lib/IRC/Indexer/Report/Network.pm

Criterion	Covered	Total	%
statement	66	68	97.0
branch	11	18	61.1
condition	3	7	42.8
subroutine	18	19	94.7
pod	10	13	76.9
total	108	125	86.4

package IRC::Indexer::Report::Network;

use 5.10.1;
use strict;
use warnings;
use Carp;

use Scalar::Util qw/blessed/;

use Storable qw/dclone/;


sub new {
  my $self = {};
  my $class = shift;
  bless $self, $class;

  my %args = @_ if @_;
  $args{lc $_} = delete $args{$_} for keys %args;

  $self->{ServerMOTDs} = 1 if $args{servermotds};

  if ($args{fromhash}) {
    $self->{Network} = delete $args{fromhash};
  } else {
    $self->{Network} = {
      Servers => {
       ## ServerName => {
       ##   TrawledAt =>
       ##   IRCD      =>
       ## # optional:
       ##   MOTD => [],
       ## }
      },

      OperCount   => undef,
      GlobalUsers => undef,
      ListChans   => [],
      HashChans   => {},

      ListLinks  => [],
      LastServer => undef,

      ConnectedAt => undef,
      FinishedAt  => undef,
    };
  }

  $self->{NOCHANS} = 1 if $args{nochannels};
  return $self
}

## Simple read-only accessors:

sub info { netinfo(@_) }
sub netinfo {
  my $self = shift;
  my %args = @_;

  return $self->{Network}
}

sub servers {
  my ($self) = @_;
  return $self->{Network}->{Servers}
}

sub motd_for {
  my ($self, $server) = @_;
  return unless $server;
  return unless exists $self->{Network}->{Servers}->{$server};
  return $self->{Network}->{Servers}->{$server}->{MOTD} // []
}

sub opers {
  my ($self) = @_;
  return $self->{Network}->{OperCount}
}

sub users {
  my ($self) = @_;
  return $self->{Network}->{GlobalUsers}
}

sub hashchans { chanhash(@_) }
sub chanhash {
  my ($self) = @_;
  return $self->{Network}->{HashChans}
}

sub connectedat {
  my ($self) = @_;
  return $self->{Network}->{ConnectedAt}
}

sub finishedat {
  my ($self) = @_;
  return $self->{Network}->{FinishedAt}
}

sub lastserver {
  my ($self) = @_;
  return $self->{Network}->{LastServer}
}

sub add_server {
  my ($self, $info) = @_;
  ## given a Report::Server object (or subclass), merge to this Network
  croak "add_server needs an IRC::Indexer::Report::Server obj"
    unless blessed $info and $info->isa('IRC::Indexer::Report::Server');

  ## keyed on reported server name
  ## will "break"-ish on dumb nets announcing dumb names:
  my $network = $self->{Network};
  my $servers = $network->{Servers};

  my $name = $info->server;
  $servers->{$name}->{TrawledAt} = $info->finishedat;
  $servers->{$name}->{IRCD} = $info->ircd;
  $servers->{$name}->{MOTD} = $info->motd
    if $self->{ServerMOTDs};

  ## these can all be overriden network-wide:
  $network->{GlobalUsers} = $info->users;
  $network->{OperCount}   = $info->opers;
  $network->{ChanCount}   = $info->totalchans;
  $network->{HashChans}   = $info->chanhash
    unless $self->{NOCHANS};
  $network->{ConnectedAt} = $info->connectedat;
  $network->{FinishedAt}  = $info->finishedat;
  $network->{ListLinks}   = $info->links // [] ;
  $network->{LastServer}  = $name;
}

1;
__END__