This example creates a new KeyColumn object of type DVAL.

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

This example shows a comparison using eq:

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