root/trunk/antimatter/tim/Modules/SFLC/TimeTracker/Output/EntryResolver.pm

# Copyright (C) 2005   Software Freedom Law Center, Inc.
#  Author: Bradley M. Kuhn <bkuhn@softwarefreedom.org>
#
#  This software gives you freedom; it is licensed to you under version
#  3 of the GNU Affero General Public License.
#
#  This software is distributed WITHOUT ANY WARRANTY, without even the
#  implied warranties of MERCHANTABILITY and FITNESS FOR A PARTICULAR
#  PURPOSE.  See the GNU Affero General Public License for further
#  details.
#
# You should have received a copy of the GNU Affero General Public
# License, version 3 along with this software.  If not, see
# <http://www.gnu.org/licenses/>.
package SFLC::TimeTracker::Output::EntryResolver;

use strict;
use warnings;

use base qw(SFLC::TimeTracker::Output);

###############################################################################
sub new {
  my($class, %input) = @_;

  $input{object} = $input{entryList} if defined $input{entryList};

  $input{object} = [] if not defined $input{object};
  my $self = SFLC::TimeTracker::Output::new($class, %input);

}
###############################################################################
sub get {
  my($self, $field) = @_;
  if ($field =~ /^(?:entryList)$/) {
    return @{$self->SUPER::get('object')};
  } else {
    return $self->SUPER::get($field);
  }
}
###############################################################################
sub set {
  my($self, $field, $val) = @_;
  if ($field =~ /^(?:entryList)$/) {
    return $self->SUPER::set('object', $val);
  } else {
    return $self->SUPER::set($field, $val);
  }
}
###############################################################################
sub addEntry {
  my $self = shift;
  my(@x) = $self->get('entryList');
  push @x, @_;
  $self->set(entryList => \@x);
}
###############################################################################
sub action {
  my($self, $actionData) = @_;
  my(@x) = $self->get('entryList');

  foreach my $entryOutput (@x) {
    $entryOutput->action($actionData);
  }
  my(%retAction) = %{$actionData};
  $retAction{edge} = 'proceed';
  return \%retAction;
}
###############################################################################
sub prettyPrintIRC ($$) {
  my($self, $now) = @_;

  my(@x) = $self->get('entryList');
  my $str;
  foreach my $entryOutput (@x) {
    $str = (defined $str) ? "  " : "";
    $str .= $entryOutput->prettyPrintIRC($now);
  }
  return $str;
}
###############################################################################
1;
__END__
#
# Local variables:
# compile-command: "perl -I ../../../../Modules -c EntryResolver.pm"
# End: