The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use warnings;
use strict;

package TestApp::Plugin::PasswordAuth::Bootstrap;

use base 'Jifty::Bootstrap';

sub run {
    my $curuser
        = TestApp::Plugin::PasswordAuth::CurrentUser->new( _bootstrap => 1 );
    my $user = TestApp::Plugin::PasswordAuth::Model::User->new(
        current_user => $curuser );
    my ( $val, $msg ) = $user->create(
        email     => 'gooduser@example.com',
        color        => 'gray',
        swallow_type => 'african',
        password     => 'secret'

    );

}

1;