]> git.vpit.fr Git - perl/modules/Test-Valgrind.git/blobdiff - lib/Test/Valgrind/Component.pm
Make sure the POD headings are linkable
[perl/modules/Test-Valgrind.git] / lib / Test / Valgrind / Component.pm
index 9a7ba2bb69ed3bb75c4cc2559533c15564542be0..739845ff04f8e8512fe830bb22713bb7a01969d8 100644 (file)
@@ -29,6 +29,8 @@ use base qw<Test::Valgrind::Carp>;
 
 =head2 C<new>
 
 
 =head2 C<new>
 
+    my $tvc = Test::Valgrind::Component->new;
+
 Basic constructor.
 
 =cut
 Basic constructor.
 
 =cut
@@ -50,7 +52,9 @@ sub new {
  }, $class;
 }
 
  }, $class;
 }
 
-=head2 C<started [ $bool ]>
+=head2 C<started>
+
+    $tvc->started($bool);
 
 Specifies whether the component is running (C<1>), stopped (C<0>) or was never started (C<undef>).
 
 
 Specifies whether the component is running (C<1>), stopped (C<0>) or was never started (C<undef>).
 
@@ -60,6 +64,8 @@ sub started { @_ <= 1 ? $_[0]->{started} : ($_[0]->{started} = $_[1] ? 1 : 0) }
 
 =head2 C<start>
 
 
 =head2 C<start>
 
+    $tvc->start;
+
 Marks the component as started, and throws an exception if it was already.
 Returns its self object.
 
 Marks the component as started, and throws an exception if it was already.
 Returns its self object.
 
@@ -76,6 +82,8 @@ sub start {
 
 =head2 C<finish>
 
 
 =head2 C<finish>
 
+    $tvc->finish;
+
 Marks the component as stopped, and throws an exception if it wasn't started.
 Returns its self object.
 
 Marks the component as stopped, and throws an exception if it wasn't started.
 Returns its self object.