package MyConstants;

use strict;
use base 'Exporter';
use YAML;

our ( @EXPORT_OK, %EXPORT_TAGS );
$_ = Load do { local $/; <DATA> };
while ( my ( $tag, $consts ) = each %$_ ) {
    while ( my ( $const, $val ) = each %$consts ) {
        push @$_, $const
          for ( \@EXPORT_OK, \@{ $EXPORT_TAGS{$tag} },
            \@{ $EXPORT_TAGS{all} } );
        no strict 'refs';
        *$const = sub () { $val };
    }
}

1;
# hier sollte eigendlich DATA beginnen, wird aber immer wieder vom Forum verschluckt :(
# unterstrichunterstrichDATAunterstrichunterstrich
tests:
  TEST: 123
  TSET: 321
foos:
  FOO: bar
  BAR: yada