Dicop::Data::Result - a result for a job

    use Dicop::Data::Result;

	$result->get_as_string('client_name');

	$result->get_as_hex('client_name');

	$result->geT('client_name');

	$object->change('foo','bar');   # will change $object->{foo} to bar
					# if foo can be changed

	die ("Can not change field $field\n") if !$object->can_change($field);

#############################################################################
# Dicop/Data/Result.pm -- a result for a job
#
# (c) Bundesamt fuer Sicherheit in der Informationstechnik 1998-2006
#
# DiCoP is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License version 2 as published by the Free
# Software Foundation.
#
# See the file LICENSE or L<http://www.bsi.de/> for more information.
#############################################################################

package Dicop::Data::Result;
use vars qw($VERSION);
$VERSION = 1.03;	# Current version of this package

use base Dicop::Item;
use strict;

use Dicop::Base qw/h2a/;

#############################################################################
# public stuff

sub _init
  {
  my $self = shift;

  $self->SUPER::_init(@_);

  # store the time the result was created, since _modified will not be stored
  $self->{time} = $self->{_modified} unless $self->{time};

  $self;  
  }

BEGIN
  {
  *get_as_hex = \&get_as_string;
  }

sub get_as_string
  {
  my ($self,$key) = @_;

  die ('Undefined key in get_as_string') if !defined $key;
  # fake key result_ascii
  return h2a($self->{result_hex}) if $key eq 'result_ascii';
  return localtime($self->{$key}) if $key eq 'time';
  $self->{$key};
  }

1;

__END__
#############################################################################