This is an automated email from the git hooks/post-receive script. alexm-guest pushed a commit to branch master in repository pkg-perl-tools.
commit d19cd369e0df9d447abc523ff3ca5e38aacdc416 Author: Alex Muntada <al...@alexm.org> Date: Sat Dec 3 04:45:19 2016 +0100 Update Debian::PkgPerl::Message - Update bug number retrieval. - Update patch name retrieval. - Add get_url method. - Add get_patch method. --- lib/Debian/PkgPerl/Message.pm | 20 ++++++++++++++++---- t/message.t | 3 --- 2 files changed, 16 insertions(+), 7 deletions(-) diff --git a/lib/Debian/PkgPerl/Message.pm b/lib/Debian/PkgPerl/Message.pm index 4510892..3b292be 100644 --- a/lib/Debian/PkgPerl/Message.pm +++ b/lib/Debian/PkgPerl/Message.pm @@ -50,7 +50,7 @@ sub get_subject { my $self = shift; my $info = $self->{info}; - my $patch = $self->{patch}; + my $patch = $self->{info}{patch}; my $opt_tracker = $self->{tracker}; my $default = $info->{Subject} // ''; @@ -96,10 +96,10 @@ sub prepare_body { my $self = shift; my $body; - my $bug = $self->{bug}; + my $bug = $self->{info}{bug}; my $opt_dist = $self->{dist}; my $info = $self->{info}; - my $patch = $self->{patch}; + my $patch = $self->{info}{patch}; my $opt_tracker = $self->{tracker}; my $name = $self->{name}; @@ -183,7 +183,7 @@ sub send_by_mail { my $name = $self->{name}; my $email = $self->{email}; my $opt_mailto = $self->{mailto}; - my $patch = $self->{patch}; + my $patch = $self->{info}{patch}; my $opt_tracker_url = $self->{url}; my $from = "$name <$email>"; @@ -229,6 +229,18 @@ sub send_by_mail { } } +sub get_url { + my $self = shift; + + return $self->{url}; +} + +sub get_patch { + my $self = shift; + + return $self->{info}{patch}; +} + =head1 LICENSE AND COPYRIGHT =over diff --git a/t/message.t b/t/message.t index 07082af..e62e5cf 100644 --- a/t/message.t +++ b/t/message.t @@ -46,7 +46,6 @@ subtest 'Test bug message' => sub { my $msg = new_ok( 'Debian::PkgPerl::Message', [ %params, - bug => $bug, info => \%info, tracker => 'github', ]); @@ -67,7 +66,6 @@ subtest 'Test patch message to GitHub' => sub { my $msg = new_ok( 'Debian::PkgPerl::Message', [ %params, - patch => $patch, info => \%info, tracker => 'github', url => 'https://github.com/alexm/pkg-perl-dummy/issues', @@ -90,7 +88,6 @@ subtest 'Test patch message to CPAN' => sub { my $msg = new_ok( 'Debian::PkgPerl::Message', [ %params, - patch => $patch, info => \%info, tracker => 'cpan', url => 'https://rt.cpan.org/Public/Dist/Display.html?Name=DUMMY', -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/pkg-perl-tools.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits