kentfredric

urxvt*reverseVideo: true
urxvt*jumpScroll: true
urxvt*skipScroll: true
urxvt*backgroundPixmap:
urxvt*fading:
urxvt*shading:
urxvt*blurRadius:
urxvt*transparent: false
urxvt*font: xft:Bright:pixelsize=10
urxvt*scrollBar_right: true

kentfredric

#!/usr/bin/perl 
use strict;
use warnings;

use Moose::Autobox;

sub Moose::Autobox::SCALAR::split {
  my $self  = shift;
  my $delim = shift;
  [ split( $delim, $self ) ];

kentfredric

CatalystX::Declare::Controller::ActionPreparation->create_action(
  attributes => { ActionClass => ["Catalyst::Action::Serialize"] },
  class => "My::Controller::User",
  code => sub { "???" },
  name => "end",
  namespace => "user",
  "reverse" => "user/end",
);

CatalystX::Declare::Controller::ActionPreparation->_apply_action_roles( 

kentfredric

#!/usr/bin/perl 
# (C)Kent Fredric 2008,2009
# Use Freely, No Warranty.
# All users may do with this code as maximally permitted by law.
use strict;
use warnings FATAL=>'all';

eval 'require MooseX::Declare; 1' or die q{ You need dev-perl/MooseX-Declare.  Check out the perl-experimental overlay };
eval 'require MooseX::Has::Sugar; 1' or die q{ You need dev-perl/MooseX-Has-Sugar.  Currently only available on github://kentfredric/perl-overlay };
eval 'require MooseX::Types::Moose; 1' or die q{ You need dev-perl/MooseX-Types. This is in mainline };

kentfredric

../lib/CGI/t/carp.t .............................................. ok   
../lib/CGI/t/cookie.t ............................................ ok   
===(   87863;258   66/194  34/58  1/7 )=================================
#   Failed test 'checking no active request'
#   at ../lib/CGI/t/fast.t line 35.
#          got: undef
#     expected: ''
# Looks like you failed 1 test of 7.
../lib/CGI/t/fast.t .............................................. Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/7 subtests 

kentfredric

make -j3 test TEST_VERBOSE=1
PERL_DL_NONLAZY=1 /usr/bin/perl5.10.1 "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib/lib', 'blib/arch')" t/*.t
===(       1;0  1/1  0/?   0/41 )=======================================ok
===(       2;0  0/2   1/41  0/? )=======================================ok
===(      43;0  1/2   0/96  0/? )=======================================ok
===(      45;0   1/96  0/7  0/? )=======================================ok
===(     142;0  1/7   1/19  0/? )=======================================ok
===(     150;0   3/19  0/? )============================================ok
===(     169;0   1/32  0/?   2/18 )=====================================ok
===(     208;0  23/32   1/28  0/? )=====================================ok

kentfredric

This is the full path to your currently selected profile:

        /usr/portage/profiles/default/linux/amd64/2008.0

Going to create these dirs:

        /etc/paludis/profile-override/profile-faker

        /etc/paludis/profile-override/profile-override

kentfredric

We couldn’t find that file to show.

kentfredric

make coverage
$WEBBROWSER cover_db/TestCase-pm.html

make profile
$WEBBROWSER nytprof/index.html

kentfredric

sub test :Local :Args(0) {
    my ( $self, $c ) = @_;

    my $auth = { email => 'kentfredric@gmail.com', password => 'asdasd123', };

    my $u = $c->model('DB::Recruiter')->find( { email => 'kentfredric@gmail.com' } );

    my $p = $u->password();

    $u->password($auth->{'password'});