From fddacea95af82bc87346838395a0a1156bae644c Mon Sep 17 00:00:00 2001
From: =?utf8?q?J=C3=A9r=C3=B4me=20Quelin?= <jquelin@gmail.com>
Date: Tue, 15 Jan 2008 10:51:19 +0100
Subject: [PATCH] moved get_components() at its place in LBV

---
 lib/Language/Befunge/Vector.pm | 28 +++++++++++++---------------
 1 file changed, 13 insertions(+), 15 deletions(-)

diff --git a/lib/Language/Befunge/Vector.pm b/lib/Language/Befunge/Vector.pm
index 27a2fed..8d83a85 100644
--- a/lib/Language/Befunge/Vector.pm
+++ b/lib/Language/Befunge/Vector.pm
@@ -70,7 +70,7 @@ sub new_zeroes {
 #- accessors
 
 #
-# my $dims = $vec->nelem;
+# my $dims = $vec->get_dims;
 #
 # Return the number of dimensions, an integer.
 #
@@ -80,6 +80,18 @@ sub get_dims {
 }
 
 
+#
+# my $val = $vec->get_component($dim);
+#
+# Get the value for dimension $dim.
+#
+sub get_component {
+    my ($self, $dim) = @_;
+    croak "No such dimension $dim!" unless $dim >= 0 && $self->get_dims > $dim;
+    return $self->[$dim];
+}
+
+
 # - mutators
 
 #
@@ -187,20 +199,6 @@ sub vector_copy {
 
 
 #
-# get_component( dimension )
-#
-#      my $x = $v->get_component(0);
-#
-# Gets the value for dimension dimension.
-#
-sub get_component {
-	my ($self, $d) = @_;
-	croak "No such dimension $d!" unless ($d >= 0 && $self->get_dims > $d);
-	return $self->[$d];
-}
-
-
-#
 # get_all_components( )
 #
 #     my $v = Language::Befunge::Vector->new(1, 2, 3);
-- 
2.11.4.GIT