xenoterracide

# this works

use Class::Load 0.20 'load_class';

my $var = 'baz';

my $class = 'Foo::Bar';

my $result = load_class( $class )->class_method( $var ); # works wonders with ->new

xenoterracide

sub _build_cybs_wsdl {
    my $self = shift;
 
    my $dir = $self->_production ? 'production' : 'test';
 
    load 'File::ShareDir::ProjectDistDir', 'dist_file';
    return load_class('Path::Class::File')->new(
            dist_file(
                'Business-CyberSource',
                $dir

xenoterracide

# impossible
package Trace {
    use Moose::Role;
    has trace => (
        isa => 'TraceObject',
        is  => 'ro',
    );
}

package Request {

xenoterracide

{
  Boolean => "N",
  FooBar => "Baz",
  MyMessagePart => {
    SomeColonDelimitedArray => "1:2:3:4"
  }
}

xenoterracide

package MessagePart {
    use Moose 2;
    use MooseX::RemoteHelper;

    has array => (
        remote_name => 'SomeColonDelimitedArray',
        isa        => 'ArrayRef',
        is         => 'ro',
        serializer => sub {
            my ( $attr, $instance ) = @_;

xenoterracide

use 5.014;
use warnings;
use Data::Dumper;

package MessagePart {
    use Moose;
    use MooseX::RemoteHelper;
    with 'MooseX::RemoteHelper::CompositeSerialization';

    has array => (

xenoterracide

use 5.014;
use warnings;

use Try::Tiny;
use Exception::Base (
    'My::Exception' => {
        has => [ qw( usermsg logmsg attr ) ],
        string_attributes => [ qw( usermsg logmsg ) ],
    },
);

xenoterracide

use 5.014;
use warnings;

use Try::Tiny;
use Exception::Base;

try {
    if ( 0 ) {
        Exception::Base->throw( message => 'this sucks', value => 0 );
    }

xenoterracide

package MyRole {
    sub foo { return 'test' }
}
package MyClass {
    with 'MyRole';
    ...
}

MyClass->new->foo;

xenoterracide

class MyClass {
   method foo  { return $self->{foo} }
   method info { return load_class('Class::Info')->new }
}

MyClass->new->foo;

# to be the equivalent of

{