view release on metacpan or  search on metacpan

lib/Flower/Files.pm  view on Meta::CPAN

sub existing_file_with_filename {
  my $self     = shift;
  my $filename = shift;

  foreach ( @{ $self->{files} } ) {
    return $_ if ( $_->filename eq $filename );
  }
  return;
}

sub update_all_in_path {
  my $self = shift;
  my $path = shift;

  # first nuke any files that have disappeared or can no
  # longer be read
  foreach ( @{ $self->{files} } ) {
    $self->remove($_) if ( !-r $_->filename );
  }

  # omg I hate File::Find

lib/Flower/Files.pm  view on Meta::CPAN

        );
        push @{ $self->{files} }, $file;
        return;
      },
    },
    $path
  );
  return;
}

sub update_files_from_arrayref {
  my $self = shift;
  my $ref  = shift;

  my @new_files;
  foreach (@$ref) {
    push @new_files,
      Flower::File->new(
      { filename => $_->{filename},
        size     => $_->{size},
        uuid     => $_->{uuid},

lib/Flower/Nodes.pm  view on Meta::CPAN

  my $self = shift;
  return @{ $self->{nodes} };
}

sub nodes_as_hashref {
  my $self = shift;
  return [ map { { uuid => $_->uuid, ip => $_->ip, port => $_->port } }
      @{ $self->{nodes} } ];
}

sub update {
  my $self = shift;

  foreach my $node ( @{ $self->{nodes} } ) {

    # if node has timed out, remove it
    if ( $node->has_timed_out ) {
      print "$node - removing after timeout\n";
      $self->remove($node);
    }