benvanstaveren

if(my $upload = $self->req->upload('myfile')) {
    my $filename = $upload->filename;
    my $asset;

    if(ref($upload->asset) ne 'Mojo::Upload::File') {
        $asset = Mojo::Asset::File->new(path => POSIX::tmpnam);
        $asset->add_chunk($upload->asset->slurp);
    } else {
        $asset = $upload->asset;
    }

benvanstaveren

$self->objectmanager->add_sub_for(
    object => $object_type, 
    object_method => $method_name, 
    method => sub {
        if(my $m = shift->app->jsp->can($method_name)) {
          return $m->(@_);
        }
    },
);

benvanstaveren

foreach my $object_type ($self->objectmanager->registered_types) {
  $self->objectmanager->meta_for($object_type => Moose::Meta::Class->create(
    'App::Object::' . $object_type,
    {
        methods => $self->objectmanager->get_methods_for($object_type),
        attributes => $self->objectmanager->get_attributes_for($object_type),
        superclasses => ['App::Object'],
        roles => [ 'App::Object::Generated', $self->objectmanager->roles_for($object_type) ],
    }
  );

benvanstaveren

ref($_) eq 'HASH" && defined($_->{'$id'}) && defined($_->{'$ref'})

benvanstaveren

has 'foo' => (is => 'rw', isa => 'DBref[Object::Foo]')

benvanstaveren

use Moose::Util::TypeConstraints;
use Moose::Util ();

my $TYPE_REGISTRY = Moose::Util::TypeConstraints->get_type_constraint_registry;

$TYPE_REGISTRY->add_type_constraint(
    Moose::Meta::TypeConstraint::Parameterizable->new(
        name                    => 'DBref',
        package_defined_in      =>  __PACKAGE__,
        parent                  =>  Moose::Util::TypeConstraints::find_type_constraint('Item'),

benvanstaveren

var myClass = new MooseClassFactory()
  .name('MyMooseClass') 
  .with(['SomeRandomRole', 'SomeOtherRole' ])
  .extends('MyOtherMooseClass')
  .has('foo', { is: 'ro', isa: 'Str', required: true })
  .has('bar', { is: 'rw', isa: 'Str', required: true, defaultValue: function() { return "foo " + " bar" } })
  .method('fweep', function() {
    say("fweeping up a storm!");
  })
  .makeImmutable;

benvanstaveren

function dumpAttributes(aMooseClass) {
  aMooseClass.meta().get_all_attributes().forEach(function(attr) {
    say("aMooseClass has attribute: ", attr.name());
  });
}

benvanstaveren

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

package Foobar;
use Moose;
use JSPL;
use Try::Tiny qw/catch try/;

has 'foo' => (is => 'rw', isa => 'Num', required => 1, reader => 'get_foo', writer => 'set_foo');

benvanstaveren

package WR::Parser::LL;
use strict;
use Moose;
use namespace::autoclean;
use IO::String;

=pod

=head1 ABSTRACT