/usr/local/CPAN/ProgressMonitor/ProgressMonitor/SetMessageFlags.pm

• package ProgressMonitor::SetMessageFlags
  • SM_NOW
  • SM_PREPARE
  • SM_BEGIN
  • SM_TICK
  • SM_END
• EOF

package ProgressMonitor::SetMessageFlags;

use strict;
use warnings;

# This defines the values used to indicate when SetMessage should occur
#

use Exporter qw(import);
our @EXPORT = qw(SM_NOW SM_PREPARE SM_BEGIN SM_TICK SM_END);

# This is the default - 'set the message now'
#
sub SM_NOW ()       { 0 }

# Set the message when prepare is called
#
sub SM_PREPARE () { 1 }

# Set the message when begin is called
#
sub SM_BEGIN ()    { 2 }

# Set the message when next tick is called
#
sub SM_TICK ()      { 3 }

# Set the message when end is called
#
sub SM_END ()      { 4 }

1;