Changes in perlwrap.pm [811ad93:0eaa488]

File:

• perlwrap.pm (modified) (3 diffs)

perlwrap.pm

@@ -132 +132 @@
 
 Remove a file descriptor previously registered via C<add_dispatch>
+
+=head2 create_style NAME OBJECT
+
+Creates a new barnowl style with the given NAME defined by the given
+object. The object must have a C<description> method which returns a
+string description of the style, and a and C<format_message> method
+which accepts a C<BarnOwl::Message> object and returns a string that
+is the result of formatting the message for display.
 
 =cut
@@ -824 +832 @@
     my $self = shift;
     my $m = shift;
-    return "\@b(PING) from \@b(" . $m->pretty_sender . ")\n";
+    return "\@b(PING) from \@b(" . $m->pretty_sender . ")";
 }
 
@@ -923 +931 @@
 
 sub format_ping($) {
+  my $self = shift;
   my $m = shift;
   return sprintf(