r26455 - in /branches/upstream/libpoe-api-peek-perl/current: LICENSE MANIFEST.SKIP META.yml README VERSION lib/POE/API/Peek.pm t/01-session.t
ghostbar-guest at users.alioth.debian.org
ghostbar-guest at users.alioth.debian.org
Sat Nov 1 22:38:25 UTC 2008
Author: ghostbar-guest
Date: Sat Nov 1 22:38:22 2008
New Revision: 26455
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=26455
Log:
[svn-upgrade] Integrating new upstream version, libpoe-api-peek-perl (1.32)
Modified:
branches/upstream/libpoe-api-peek-perl/current/LICENSE
branches/upstream/libpoe-api-peek-perl/current/MANIFEST.SKIP
branches/upstream/libpoe-api-peek-perl/current/META.yml
branches/upstream/libpoe-api-peek-perl/current/README
branches/upstream/libpoe-api-peek-perl/current/VERSION
branches/upstream/libpoe-api-peek-perl/current/lib/POE/API/Peek.pm
branches/upstream/libpoe-api-peek-perl/current/t/01-session.t
Modified: branches/upstream/libpoe-api-peek-perl/current/LICENSE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-api-peek-perl/current/LICENSE?rev=26455&op=diff
==============================================================================
--- branches/upstream/libpoe-api-peek-perl/current/LICENSE (original)
+++ branches/upstream/libpoe-api-peek-perl/current/LICENSE Sat Nov 1 22:38:22 2008
@@ -1,4 +1,5 @@
-Copyright (c) 2003 - 2005, Matt Cashner
+Copyright (c) 2003 - 2008, Matt Cashner
+Copyright (c) 2008, Yuval Kogman
All rights reserved.
Redistribution and use in source and binary forms, with or without
Modified: branches/upstream/libpoe-api-peek-perl/current/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-api-peek-perl/current/MANIFEST.SKIP?rev=26455&op=diff
==============================================================================
--- branches/upstream/libpoe-api-peek-perl/current/MANIFEST.SKIP (original)
+++ branches/upstream/libpoe-api-peek-perl/current/MANIFEST.SKIP Sat Nov 1 22:38:22 2008
@@ -15,3 +15,4 @@
t/devel
~$
DS_Store
+^.git
Modified: branches/upstream/libpoe-api-peek-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-api-peek-perl/current/META.yml?rev=26455&op=diff
==============================================================================
--- branches/upstream/libpoe-api-peek-perl/current/META.yml (original)
+++ branches/upstream/libpoe-api-peek-perl/current/META.yml Sat Nov 1 22:38:22 2008
@@ -20,4 +20,4 @@
POE: 1.0001
Test::More: 0
perl: 5.006001
-version: 1.30
+version: 1.32
Modified: branches/upstream/libpoe-api-peek-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-api-peek-perl/current/README?rev=26455&op=diff
==============================================================================
--- branches/upstream/libpoe-api-peek-perl/current/README (original)
+++ branches/upstream/libpoe-api-peek-perl/current/README Sat Nov 1 22:38:22 2008
@@ -87,6 +87,14 @@
will determine. If this parameter is not specified, it will default to
the currently active session. Returns a boolean.
+ get_session_parent
+ my $parent = $api->get_session_parent($session);
+ my $parent = $api->get_session_parent();
+
+ Get the parent for a given session. Takes one optional parameter, a
+ POE::Session object. If this parameter is not provided, the method
+ defaults to the currently active session. Returns a POE::Session object.
+
resolve_session_to_ref
my $session = $api->resolve_session_to_ref($session_id);
my $session = $api->resolve_session_to_ref();
@@ -323,11 +331,13 @@
POE::Session object. If this parameter is not provided, it will default
to the currently active session. Returns a boolean.
-AUTHOR
+AUTHORS
Matt Cashner (sungo at pobox.com)
+ Yuvol Kogman (nothingmuch at woobling.org)
LICENSE
- Copyright (c) 2003 - 2008, Matt Cashner. All rights reserved.
+ Copyright (c) 2003 - 2008, Matt Cashner.
+ Copyright (c) 2008, Yuval Kogman
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are
Modified: branches/upstream/libpoe-api-peek-perl/current/VERSION
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-api-peek-perl/current/VERSION?rev=26455&op=diff
==============================================================================
--- branches/upstream/libpoe-api-peek-perl/current/VERSION (original)
+++ branches/upstream/libpoe-api-peek-perl/current/VERSION Sat Nov 1 22:38:22 2008
@@ -1,2 +1,2 @@
-our $VERSION = '1.30';
+our $VERSION = '1.32';
Modified: branches/upstream/libpoe-api-peek-perl/current/lib/POE/API/Peek.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-api-peek-perl/current/lib/POE/API/Peek.pm?rev=26455&op=diff
==============================================================================
--- branches/upstream/libpoe-api-peek-perl/current/lib/POE/API/Peek.pm (original)
+++ branches/upstream/libpoe-api-peek-perl/current/lib/POE/API/Peek.pm Sat Nov 1 22:38:22 2008
@@ -28,7 +28,7 @@
use warnings;
use strict;
-our $VERSION = '2.11';
+our $VERSION = '2.13';
BEGIN {
use POE;
@@ -251,6 +251,27 @@
return $poe_kernel->_data_ses_is_child($parent, $session);
}
# }}}
+
+# get_session_parent {{{
+
+=head2 get_session_parent
+
+ my $parent = $api->get_session_parent($session);
+ my $parent = $api->get_session_parent();
+
+Get the parent for a given session. Takes one optional parameter, a
+POE::Session object. If this parameter is not provided, the method defaults to
+the currently active session. Returns a POE::Session object.
+
+=cut
+
+sub get_session_parent {
+ my $self = shift;
+ my $session = shift || $self->current_session();
+ return $poe_kernel->_data_ses_get_parent($session);
+}
+# }}}
+
# resolve_session_to_ref {{{
@@ -909,13 +930,26 @@
=pod
-=head1 AUTHOR
-
-Matt Cashner (sungo at pobox.com)
+=head1 AUTHORS
+
+=over 4
+
+=item Matt Cashner (sungo at pobox.com)
+
+=item Yuval Kogman (nothingmuch at woobling.org)
+
+=back
+
=head1 LICENSE
-Copyright (c) 2003 - 2008, Matt Cashner. All rights reserved.
+=over 4
+
+=item Copyright (c) 2003 - 2008, Matt Cashner.
+
+=item Copyright (c) 2008, Yuval Kogman
+
+=back
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are
Modified: branches/upstream/libpoe-api-peek-perl/current/t/01-session.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-api-peek-perl/current/t/01-session.t?rev=26455&op=diff
==============================================================================
--- branches/upstream/libpoe-api-peek-perl/current/t/01-session.t (original)
+++ branches/upstream/libpoe-api-peek-perl/current/t/01-session.t Sat Nov 1 22:38:22 2008
@@ -1,7 +1,7 @@
# Tests for session related api. see code block marked "Session fun".
-use Test::More tests => 34;
+use Test::More tests => 37;
use warnings;
use strict;
@@ -96,6 +96,15 @@
# }}}
+# get_session_parent {{{
+
+ my $parent = eval { $api->get_session_parent };
+ ok(!$@, "get_session_parent() causes no exceptions.");
+ ok($parent, "parent returned");
+ is($parent, $poe_kernel, "our parent is the kernel");
+
+# }}}
+
# session_memory_size {{{
my $size;
eval { $size = $api->session_memory_size() };
More information about the Pkg-perl-cvs-commits
mailing list