r26457 - in /trunk/libpoe-api-peek-perl: LICENSE MANIFEST.SKIP META.yml README VERSION debian/changelog 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:42:21 UTC 2008
Author: ghostbar-guest
Date: Sat Nov 1 22:42:18 2008
New Revision: 26457
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=26457
Log:
New upstream release
Modified:
trunk/libpoe-api-peek-perl/LICENSE
trunk/libpoe-api-peek-perl/MANIFEST.SKIP
trunk/libpoe-api-peek-perl/META.yml
trunk/libpoe-api-peek-perl/README
trunk/libpoe-api-peek-perl/VERSION
trunk/libpoe-api-peek-perl/debian/changelog
trunk/libpoe-api-peek-perl/lib/POE/API/Peek.pm
trunk/libpoe-api-peek-perl/t/01-session.t
Modified: trunk/libpoe-api-peek-perl/LICENSE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-api-peek-perl/LICENSE?rev=26457&op=diff
==============================================================================
--- trunk/libpoe-api-peek-perl/LICENSE (original)
+++ trunk/libpoe-api-peek-perl/LICENSE Sat Nov 1 22:42:18 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: trunk/libpoe-api-peek-perl/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-api-peek-perl/MANIFEST.SKIP?rev=26457&op=diff
==============================================================================
--- trunk/libpoe-api-peek-perl/MANIFEST.SKIP (original)
+++ trunk/libpoe-api-peek-perl/MANIFEST.SKIP Sat Nov 1 22:42:18 2008
@@ -15,3 +15,4 @@
t/devel
~$
DS_Store
+^.git
Modified: trunk/libpoe-api-peek-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-api-peek-perl/META.yml?rev=26457&op=diff
==============================================================================
--- trunk/libpoe-api-peek-perl/META.yml (original)
+++ trunk/libpoe-api-peek-perl/META.yml Sat Nov 1 22:42:18 2008
@@ -20,4 +20,4 @@
POE: 1.0001
Test::More: 0
perl: 5.006001
-version: 1.30
+version: 1.32
Modified: trunk/libpoe-api-peek-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-api-peek-perl/README?rev=26457&op=diff
==============================================================================
--- trunk/libpoe-api-peek-perl/README (original)
+++ trunk/libpoe-api-peek-perl/README Sat Nov 1 22:42:18 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: trunk/libpoe-api-peek-perl/VERSION
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-api-peek-perl/VERSION?rev=26457&op=diff
==============================================================================
--- trunk/libpoe-api-peek-perl/VERSION (original)
+++ trunk/libpoe-api-peek-perl/VERSION Sat Nov 1 22:42:18 2008
@@ -1,2 +1,2 @@
-our $VERSION = '1.30';
+our $VERSION = '1.32';
Modified: trunk/libpoe-api-peek-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-api-peek-perl/debian/changelog?rev=26457&op=diff
==============================================================================
--- trunk/libpoe-api-peek-perl/debian/changelog (original)
+++ trunk/libpoe-api-peek-perl/debian/changelog Sat Nov 1 22:42:18 2008
@@ -1,3 +1,9 @@
+libpoe-api-peek-perl (1.3200-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- Jose Luis Rivas <ghostbar38 at gmail.com> Sat, 01 Nov 2008 18:10:14 -0430
+
libpoe-api-peek-perl (1.3000-1) unstable; urgency=low
* New upstream release.
Modified: trunk/libpoe-api-peek-perl/lib/POE/API/Peek.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-api-peek-perl/lib/POE/API/Peek.pm?rev=26457&op=diff
==============================================================================
--- trunk/libpoe-api-peek-perl/lib/POE/API/Peek.pm (original)
+++ trunk/libpoe-api-peek-perl/lib/POE/API/Peek.pm Sat Nov 1 22:42:18 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: trunk/libpoe-api-peek-perl/t/01-session.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-api-peek-perl/t/01-session.t?rev=26457&op=diff
==============================================================================
--- trunk/libpoe-api-peek-perl/t/01-session.t (original)
+++ trunk/libpoe-api-peek-perl/t/01-session.t Sat Nov 1 22:42:18 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