package Constants;

use base 'Exporter';
our @EXPORT = grep {
    substr( $_, 0, 2 ) eq 'C_'
 && __PACKAGE__->can( $_ );
} keys %Constants::;


use constant C_FOO => 1;
use constant C_BAR => 2;
use constant C_BAZ => 3;