Term::Twiddle::Quiet - Twiddles a thingy while-u-wait if run interactively

Term-Twiddle-Quiet documentation Contained in the Term-Twiddle-Quiet distribution.

Index

Code Index:

NAME

Top

Term::Twiddle::Quiet - Twiddles a thingy while-u-wait if run interactively

VERSION

Top

version 1.100110

SYNOPSIS

Top

    use Term::Twiddle::Quiet;
    my $tw = Term::Twiddle::Quiet->new( \%params );
    $tw->start;
    # do some stuff taking a long time in here
    $tw->stop;

DESCRIPTION

Top

Term::Twiddle is a nice module for showing spinning thingies on the terminal while waiting for an action to complete.

Term::Twiddle::Quiet acts very much like that module when it is run interactively. However, when it isn't run interactively (for example, as a cron job) then it does not show the twiddle.

Other than this difference, it really act as a Term::Twiddle with all its options, methods and restrictions (of course, it supports the same API) - cf its documentation for more information.

METHODS

Top

my $tw = Term::Twiddle::Quiet->new( \%params );

Create and return twiddle. The twiddle will do nothing when activated if the program is ran non-interactively, otherwise it'll return a plain Term::Twiddle object.

AUTHOR

Top

  Jerome Quelin

COPYRIGHT AND LICENSE

Top

This software is copyright (c) 2010 by Jerome Quelin.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

Term-Twiddle-Quiet documentation Contained in the Term-Twiddle-Quiet distribution. 
# 
# This file is part of Term-Twiddle-Quiet
# 
# This software is copyright (c) 2010 by Jerome Quelin.
# 
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
# 
use 5.008;
use strict;
use warnings;

package Term::Twiddle::Quiet;
our $VERSION = '1.100110';
# ABSTRACT: Twiddles a thingy while-u-wait if run interactively

use IO::Interactive qw{ is_interactive };
use Term::Twiddle;
use Test::MockObject;


# -- public methods


sub new {
    my $class = shift;

    # interactive: return the real object
    return Term::Twiddle->new(@_) if is_interactive;

    # not interactive: let's mock it
    my $mock = Test::MockObject->new;
    $mock->set_true($_) for qw{
        start stop thingy rate probability random stream
        type width delay
    };
    return $mock;
}

1;




__END__