#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
#------------------------------------------------------------

package Common::Translator::Item;

#
# Common::Translator::Item
#
# Container for Translator record value
#

use strict;

use lib '/app/tools/common/lib';
use Common::Assert;

sub new {
    my $class = shift;

    my $self = {};
    bless $self, $class;

    return $self->_init(@_);
}

sub _init {
    my ( $self, %args ) = @_;

    $self->{_line}        = $args{line};
    $self->{_value}       = $args{value};
    $self->{_column}      = $args{column};
    $self->{_key}         = $args{key};
    $self->{_originalKey} = $args{originalKey};

    return $self;
}

###
#   Accessors
###

sub line        { shift->{_line} }
sub value       { shift->{_value} }
sub column      { shift->{_column} }
sub key         { shift->{_key} }
sub originalKey { shift->{_originalKey} }

###
1;    # Play nicely.
###