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

# Copyright (C) 2005, 2006   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::Dummy;

use strict;
use warnings;

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

###############################################################################
sub new {
  my($class) = shift;

  my(%input) = @_;
  if (defined $input{string}) {
    $input{object} = \$input{string};
  }
  my $self = SFLC::TimeTracker::Output::new($class, %input);

  $self->{forcedActionData} = (defined $input{actionData})
                               ?  $input{actionData}
                               : { edge => 'proceed'};
  return $self;
}
###############################################################################
sub get {
  my($self, $field) = @_;
  if ($field =~ /^(?:string)$/) {
    # double dollar on purpose: the stored object is a ref to a string
    return ${$self->SUPER::get('object')};
  } else {
    return $self->SUPER::get($field);
  }
}
###############################################################################
sub prettyPrintIRC ($$) {
  my($self, $now) = @_;

  return $self->get('string');
}
###############################################################################
sub action {
  my($self, $newActionData) = @_;
  # Dummy nodes should pass through any action data they receive to their
  # children, provided they were not required to override it

  foreach my $key (keys %{$newActionData}) {
    $self->{forcedActionData}{$key} = $newActionData->{$key}
      if not defined $self->{forcedActionData}{$key};
  }
  return $self->{forcedActionData};
}
###############################################################################
1;
__END__

#
# Local variables:
# compile-command: "perl -I ../../../../Modules -c Dummy.pm"
# End: