
package Text::Wigwam::Engine::Totem::Const;

    use strict;
    use warnings;
    our $VERSION = '0.01';

    use base q/Exporter/;

    our %EXPORT_TAGS = (
        all => [
          qw/
              NUMB
              PTXT
              QSTR
              VNAM
              FAKED
              ROOT_BLOCK
              TEXT_BLOCK
              CODE_BLOCK
          /
        ]
    );

    our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
    our @EXPORT = ( @{ $EXPORT_TAGS{'all'} } );

     # Data class types
    use constant NUMB    => 0x0001;    # Numeric literal subclass (unused)
    use constant PTXT    => 0x0002;    # Plain text literal subclass
    use constant QSTR    => 0x0004;    # Quoted literal string
    use constant VNAM    => 0x0008;    # Variable Name

     # Directive class types
    use constant TEXT_BLOCK    => 0x0001;    # Block #Do token         !!>
    use constant CODE_BLOCK    => 0x0002;    # Tag #Do token           [!!
    use constant ROOT_BLOCK    => 0x0004;    # Root level #Do token

    use constant FAKED    => 0x8000;    # Faked DRIP flag

1;
