#!/usr/bin/perl

use strict;
use warnings;

use String;
use Data::Dumper;

my $str = String->new();

while (<>) {

  $str->line() = $_;

  print "BEFORE:   ";

  print Dumper $str;

  print "A: ", $str->field_int( "a" ), "\n";
  print "B: ", $str->field_int( "b" ), "\n";

  $str->field_int( "a" ) =  $str->field_int( "b" );

  print "AFTER:   ";

  print Dumper $str;
 
  
  print "LINE: ", $str->line(), "\n" x4;
}