Можно ли создать экземпляр объекта в Dancer, чтобы вернуть значение для отображения?

Question

У меня есть следующий код в моем Танцовщица модуле приложения:

package Deadlands; 
use Dancer ':syntax'; 
use Dice; 

our $VERSION = '0.1'; 

get '/' => sub { 
    my ($dieQty, $dieType); 
    $dieQty = param('dieQty'); 
    $dieType = param('dieType'); 
    if (defined $dieQty && defined $dieType) { 
     return Dice->new(dieType => $dieType, dieQty => $dieQty)->getStandardResult(); 
    } 
    template 'index'; 
}; 

true; 

У меня есть класс Moops под названием Dice.pm, который работает просто отлично, если я проверить его с .pl файла, но при попытке доступа к нему через веб-браузер я получаю следующую ошибку: Не удается найти метод объекта «новый» через пакет «Dice» (возможно, вы забыли загрузить «Dice»?).

Могу ли я это сделать с танцором?

Здесь уместен код из Dice.pm:

use 5.14.3; 
use Moops; 

class Dice 1.0 { 
    has dieType => (is => 'rw', isa => Int, required => 1); 
    has dieQty => (is => 'rw', isa => Int, required => 1); 
    has finalResult => (is => 'rw', isa => Int, required => 0); 

    method getStandardResult() { 
     $self->finalResult(int(rand($self->dieType()) + 1)); 
     return $self->finalResult(); 
    } 
} 

Answer 1

Я собирался сказать, что вы забыли package Dice в вашем Dice.pm, но после прочтения на Moops Я смущен о пространствах имен.

Давайте посмотрим на documentation for Moops.

If you use Moops within a package other than main, then package names used within the declaration are "qualified" by that outer package, unless they contain "::". So for example:

package Quux; 
use Moops; 

class Foo { }  # declares Quux::Foo 

class Xyzzy::Foo # declares Xyzzy::Foo 
    extends Foo { } # ... extending Quux::Foo 

class ::Baz { }  # declares Baz 

Если class Dice в Dice.pm он фактически станет Dice::Dice, если я прочитал это правильно. Таким образом, вам нужно будет use Dice и создать свой объект с помощью Dice::Dice->new.

Для того, чтобы сделать пакет Dice в Dice.pm с помощью Moops, я считаю, нужно объявить класс как это:

class ::Dice 1.0 { 
    # ^------------- there are two colons here! 

    has dieType => (is => 'rw', isa => Int, required => 1); 
    has dieQty => (is => 'rw', isa => Int, required => 1); 
    has finalResult => (is => 'rw', isa => Int, required => 0); 

    method getStandardResult() { 
     $self->finalResult(int(rand($self->dieType()) + 1)); 
     return $self->finalResult(); 
    } 
} 

Вы можете сделать:

use Dice; 
Dice->new;