package Tinderbox3::FieldProcessors::Graph; use strict; sub new { my $class = shift; $class = ref($class) || $class; my $this = {}; bless $this, $class; return $this; } sub process_field { my $this = shift; my ($tree_columns, $field, $value) = @_; return "$field: $value"; } 1