#!/usr/bin/perl -w

use warnings;
use strict;
use CipUX::Trait;
use base qw(CipUX);

my $trait = CipUX::Trait->new;
$trait->init;

my $trait_list_hr = $trait->get_trait_name_register;

foreach my $trait ( sort keys %{$trait_list_hr} ) {
    print "$trait: $trait_list_hr->{$trait}\n";
}

