sub filter {
		   my ( $set ) = @_;
		   # YOUR CODE HERE
		}

sub filter {
   my ( $set ) = @_;
   $set->{info} =~ m/product/;
}

sub compute_column_value {
   my ( $set, $cur, $pre ) = @_;
   my $val = # EXPANDED STRING GOES HERE
   return $val;
}

use strict;
use warnings FATAL => 'all';

package Innotop::Plugin::Example;
# description: Adds an 'example' column to every table

sub new {
   my ( $class, %vars ) = @_;
   # Store reference to innotop's variables in $self
   my $self = bless { %vars }, $class;

   # Design the example column
   my $col = {
	  hdr   => 'Example',
	  just  => '',
	  dec   => 0,
	  num   => 1,
	  label => 'Example',
	  src   => 'example', # Get data from this column in the data source
	  tbl   => '',
	  trans => [],
   };

   # Add the column to every table.
   my $tbl_meta = $vars{tbl_meta};
   foreach my $tbl ( values %$tbl_meta ) {
	  # Add the column to the list of defined columns
	  $tbl->{cols}->{example} = $col;
	  # Add the column to the list of visible columns
	  unshift @{$tbl->{visible}}, 'example';
   }

   # Be sure to return a reference to the object.
   return $self;
}

# I'd like to be called when a data set is being rendered into a table, please.
sub register_for_events {
   my ( $self ) = @_;
   return qw(set_to_tbl_pre_filter);
}

# This method will be called when the event fires.
sub set_to_tbl_pre_filter {
   my ( $self, $rows, $tbl ) = @_;
   # Set the example column's data source to the value 1.
   foreach my $row ( @$rows ) {
	  $row->{example} = 1;
   }
}

1;