Question

我在尝试运行代码时遇到了列出的错误。我首先看一下类似问题的先前答案。 This question 提供了最佳信息。它向我展示了如何查看正在加载的项目。

这是我的目录树：

Pagerduty /
- Client.pm
- Obj.pm
- 测试/
  - pagerduty_tester.pl

以下是测试人员目前的样子：

#!/usr/bin/env perl
use lib "../..";

use strict;
use warnings;
use YAML qw/LoadFile/;
use Pagerduty::Client;
use Pagerduty::Obj;
use Data::Dumper;

use constant TRUE  => 1;
use constant FALSE => 0;

print($INC{"Pagerduty/Obj.pm"}, "\n");

my $settings = LoadFile("pagerduty.yml");
my $client = Pagerduty::Client->new($settings);

sub create_test_incident{
    my $incident_params = define_test_incident();
    my $incident = $client->create_incident( $incident_params );

}

sub define_test_incident{
    {
        service_key => "<omitted>",
        description => "Test Incident",
        details => {
            detail1 => "Details blah",
            detail2 => "more detail",
        },
    }
}

my $obj = define_test_incident();
# print Dumper($obj);
print Dumper( Pagerduty::Obj->new( $obj ) );

# print Dumper( create_test_incident() )

这是Pagerduty :: Obj

package Pageduty::Obj;

use strict;
use warnings;
use Data::Structure::Util qw/unbless/;

use constant TRUE => 1;

sub new{
    my $class = shift;
    my $self  = shift;
    # $self->{objCode} = lc($self->{objCode});
    return bless $self, $class;
}

sub serialize{
    my $self = shift;
    unbless($self);
}

sub update_values{
    my $self = shift;
    my $changes = shift;
    if($self->{changes}){
        while(my ($key, $value) = each $changes){
            $self->{changes}->{$key} = $value;
        }
    } else{
        $self->{changes} = $changes;
    }
}

TRUE;

最后，当我运行代码时，我得到以下内容：

../../Pagerduty/Obj.pm
Can't locate object method "new" via package "Pagerduty::Obj" (perhaps you forgot to load "Pagerduty::Obj"?)

当我猫../../Pagerduty/Obj.pm我得到上面列出的代码。此代码位于我创建的库中。我把那个库放在变量PERL5LIB中。我有＆＃39;使用lib ../..'因为我希望它适用于任何计算机。我一直试图弄清楚过去2天为什么这段代码不起作用。有什么想法吗？

其他类的作品接受无法使用相同的错误消息创建新的Pagerduty :: Obj。

Answer 1

您的文件是Pagerduty/Obj.pm，并且您正在尝试使用课程Pagerduty::Obj，但是您在模块的顶部

package Pageduty::Obj;

应该是

package Pagerduty::Obj;

顺便说一句，添加包含相对于脚本位置的目录的规范方法是使用FindBin，它将标量变量$FindBin::Bin（以及其他）设置为绝对路径包含Perl程序文件的目录。

use FindBin;
use lib "$FindBin::Bin/../..";

您可能听说过FindBin被破坏，但最近在Perl 5的第16版中已经得到纠正。

Perl对象错误：无法通过包找到对象方法，因为我正在编写类

1 个答案: