SDLx::Text - supporting text attribute during construction

isync · Feb 27, 2011 · 8c6646b · 8c6646b
1 parent 58cede0
commit 8c6646b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/lib/SDLx/Text.pm b/lib/SDLx/Text.pm
@@ -43,6 +43,8 @@ sub new {
 
 	$self->{_color} = $color;
 
+	$self->text( $options{'text'} ) if defined $options{'text'};
+
 	return $self;
 }
 

diff --git a/lib/pods/SDLx/Text.pod b/lib/pods/SDLx/Text.pod
@@ -72,6 +72,8 @@ Sets the horizontal alignment of the text to be rendered relative to
 whatever surface you are placing it into. Available alignments are 'C<left>',
 'C<right>' and 'C<center>'. Default is 'C<left>'.
 
+=item * text
+
 =back
 
 =head2 text( "text to write" )
-Original file line number
+Diff line change
@@ Expand Up / @@ -43,6 +43,8 @@ sub new { @@
     	$self->{_color} = $color;
+    	$self->text( $options{'text'} ) if defined $options{'text'};
     	return $self;
     }
@@ Expand Down @@