Added Perl implementation of Bubble sort

upasana-me · upasana-me · commit 069fa94d35da · 2014-01-15T06:35:45.000+05:30
diff --git a/Bubble_Sort/Perl/Sweet-kid/Bubble_Sort.pm b/Bubble_Sort/Perl/Sweet-kid/Bubble_Sort.pm
@@ -0,0 +1,27 @@
+package Bubble_Sort;
+
+use strict;
+use warnings;
+
+sub bubble_sort {
+    my $array_ref = shift;
+    my @array = @$array_ref;
+    my $sorted = 0;
+
+    while( !$sorted ) {
+	my $modified = 0;
+	for( my $i = 1; $i <= $#array; $i++ ) {
+	    if( $array[ $i - 1 ] > $array[ $i ] ) {
+		$modified = 1;
+		my $temp = $array[ $i ];
+		$array[ $i ] = $array[ $i - 1 ];
+		$array[ $i - 1 ] = $temp;
+           }
+	}
+	$sorted = ( $modified ? 0 : 1 );
+    }
+
+    return \@array;
+}
+
+1;
diff --git a/Bubble_Sort/Perl/Sweet-kid/Bubble_Sort_test.t b/Bubble_Sort/Perl/Sweet-kid/Bubble_Sort_test.t
@@ -0,0 +1,11 @@
+use Test::More;
+
+use Bubble_Sort;
+
+my @array = (5, 4, 3, 2, 1);
+
+is_deeply( Bubble_Sort::bubble_sort( \@array ),
+           [1, 2, 3, 4, 5],
+	   "Got a sorted array");
+
+done_testing;
