This example creates a new EDF::KeyColumn object of type PVAL:

my $col = new EDF::KeyColumn;
$col->type = EDF::KeyColumn::PVAL;

This example shows a comparison using eq:

if ($col->type eq EDF::KeyColumn::PVAL) {...}