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