view release on metacpan or  search on metacpan

lib/Catalyst/Action/Wizard.pm  view on Meta::CPAN

use Catalyst::Wizard;
use Catalyst::Utils;
use MRO::Compat;

use Scalar::Util;

use base 'Catalyst::Action';

our $VERSION = '0.008';

sub refaddr($) {
    sprintf "%x", Scalar::Util::refaddr(shift);
}

sub _current_wizard {
    return Catalyst::Wizard::_current_wizard(@_);
}

sub _new_wizard {
    my $c    = shift;
    my $wizard_id = shift || 'new';

lib/Catalyst/Wizard.pm  view on Meta::CPAN

#---------------------------------------------------------------------------
#  UTILITY FUNCTIONS
#---------------------------------------------------------------------------

sub _dump_self {
    my $self = shift;
    return ($self->{wizard_id}, " ", _dump($self));
}


sub refaddr($) {
    sprintf "%x", Scalar::Util::refaddr(shift);
}

=head2 $wizard->info and $wizard->short_info

Prints current wizard info.

short_info omits steps on print.

Note that info will skip all the inherited methods ($self->SUPER::info call).