[libmoosex-role-timer-perl] 08/08: releasing package libmoosex-role-timer-perl version 0.04-1

gregor herrmann gregoa at debian.org
Sat Jan 11 21:16:51 UTC 2014


This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository libmoosex-role-timer-perl.

commit 61ef55a177f639785908bbbdfcc88c191716da50
Author: gregor herrmann <gregoa at debian.org>
Date:   Sat Jan 11 22:16:42 2014 +0100

    releasing package libmoosex-role-timer-perl version 0.04-1
---
 debian/changelog              |  11 +++-
 lib/MooseX/Role/Timer.pm.orig | 140 ------------------------------------------
 2 files changed, 9 insertions(+), 142 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index 022c8ba..339540d 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,4 +1,6 @@
-libmoosex-role-timer-perl (0.04-1) UNRELEASED; urgency=low
+libmoosex-role-timer-perl (0.04-1) unstable; urgency=low
+
+  * Team upload.
 
   [ gregor herrmann ]
   * debian/control: update {versioned,alternative} (build) dependencies.
@@ -9,8 +11,13 @@ libmoosex-role-timer-perl (0.04-1) UNRELEASED; urgency=low
 
   [ gregor herrmann ]
   * New upstream release.
+  * Drop patches, both applied upstream.
+  * Don't install boilerplate README anymore.
+  * Update years of upstream copyright.
+  * Make short description a noun phrase.
+  * Declare compliance with Debian Policy 3.9.5.
 
- -- gregor herrmann <gregoa at debian.org>  Sat, 11 Jan 2014 22:11:29 +0100
+ -- gregor herrmann <gregoa at debian.org>  Sat, 11 Jan 2014 22:15:50 +0100
 
 libmoosex-role-timer-perl (0.03-1) unstable; urgency=low
 
diff --git a/lib/MooseX/Role/Timer.pm.orig b/lib/MooseX/Role/Timer.pm.orig
deleted file mode 100644
index e792252..0000000
--- a/lib/MooseX/Role/Timer.pm.orig
+++ /dev/null
@@ -1,140 +0,0 @@
-package MooseX::Role::Timer;
-
-use Any::Moose '::Role';
-use Time::HiRes;
-use strict;
-use warnings;
-
-=head1 NAME
-
-MooseX::Role::Timer - Measure times with your object.
-
-=head1 SYNOPSIS
-
- package Demo;
- use Moose; # or Any::Moose
- with 'MooseX::Role::Timer';
-
- sub BUILD {
-   shift->start_timer("build");
- }
-
- sub do_something {
-   my $self = shift;
-   $self->start_timer("something");
-   # do something...
-   $self->stop_timer("something");
- }
-
- package main;
- my $demo = Demo->new;
- $demo->do_something;
- $demo->do_something;
- printf "%3.6fs\n", $demo->elapsed_timer("build");     # time spent since BUILD
- printf "%3.6fs\n", $demo->elapsed_timer("something"); # time spent in sub do_something
-
-This Role provides your object with timers, making it easier to keep track of how long 
-whatever actions take.
-
-=cut
-
-has '_timers' => ( is=>'rw', isa=>'HashRef', default=>sub{{}} );
-
-=over 4
-
-=item start_timer($name)
-
-Start timer $name.
-
-=cut
-
-sub start_timer {
-    my $self = shift;
-    my $name = shift || die "usage: start_timer('name')";
-    if ( ! exists $self->_timers->{$name} ) {
-        $self->_timers->{$name} = [0];
-    }
-    $self->_timers->{$name}->[1] = [ Time::HiRes::gettimeofday ];
-}
-
-=item stop_timer($name)
-
-Stop timer $name. Could be startet again to cumulatively measure time.
-
-=cut
-
-sub stop_timer {
-    my $self = shift;
-    my $name = shift || die "usage: stop_timer('name')";
-    my $timer = $self->_timers->{$name};
-    if ( $timer->[1] ) {
-        $timer->[0] += Time::HiRes::tv_interval( $timer->[1] );
-        $timer->[1] = undef;
-    } else {
-        warn "timer '$name' is not running";
-    }
-}
-
-=item reset_timer($name)
-
-Stops timer $name and clears cumulated times for $name.
-
-=cut
-
-sub reset_timer {
-    my $self = shift;
-    my $name = shift || die "usage: reset_timer('name')";
-    $self->_timers->{$name} = [0];
-}
-
-=item elapsed_timer('name')
-
-Return the elapsed time in seconds (cumulated) for timer $name.
-
-=cut
-
-sub elapsed_timer {
-    my $self = shift;
-    my $name = shift || die "usage: elapsed_timer('name')";
-    die "timer '$name' was never started" if ! exists $self->_timers->{$name};
-    my $elapsed = $self->_timers->{$name}->[0];
-    if ( $self->_timers->{$name}->[1] ) {
-        $elapsed += Time::HiRes::tv_interval( $self->_timers->{$name}->[1] );
-    }
-    return $elapsed;
-}
-
-=item timer_names
-
-Return all timer names.
-
-=cut
-
-sub timer_names {
-    return keys %{ shift->_timers };
-}
-
-=back
-
-=head1 AUTHOR
-
-Michael Langner, C<< <mila at cpan.org> >>
-
-=head1 BUGS
-
-Please report any bugs or feature requests to
-C<bug-moosex-role-timer at rt.cpan.org>, or through the web interface at
-L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=MooseX-Role-Timer>.
-I will be notified, and then you'll automatically be notified of progress on
-your bug as I make changes.
-
-=head1 COPYRIGHT & LICENSE
-
-Copyright 2010 Michael Langner, all rights reserved.
-
-This program is free software; you can redistribute it and/or modify it under the
-same terms as Perl itself.
-
-=cut
-
-1; # track-id: 3a59124cfcc7ce26274174c962094a20

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmoosex-role-timer-perl.git



More information about the Pkg-perl-cvs-commits mailing list