purge windows carriage returns

grep -rl $'\r' * | xargs dos2unix

docs/test.pod

@@ -1,7 +1,7 @@
-=head1 TEST
-
-=begin html
-
-<img src="https://raw.github.com/duckduckgo/duckduckgo/master/docs/ddg_request.png" alt="The big picture of DDG::Request" />
-
-=end html
+=head1 TEST
+
+=begin html
+
+<img src="https://raw.github.com/duckduckgo/duckduckgo/master/docs/ddg_request.png" alt="The big picture of DDG::Request" />
+
+=end html

lib/DDG/Block/Blockable/Any.pm

@@ -1,18 +1,18 @@
-package DDG::Block::Blockable::Any;
-# ABSTRACT: Role for something blockable that has no triggers
-
-use Moo::Role;
-
-with 'DDG::Block::Blockable';
-
-sub get_triggers {}
-sub triggers {}
-
-sub has_triggers { 0 }
-sub triggers_block_type { 'Any' }
-
-=head1 DESCRIPTION
-
-=cut 
-
+package DDG::Block::Blockable::Any;
+# ABSTRACT: Role for something blockable that has no triggers
+
+use Moo::Role;
+
+with 'DDG::Block::Blockable';
+
+sub get_triggers {}
+sub triggers {}
+
+sub has_triggers { 0 }
+sub triggers_block_type { 'Any' }
+
+=head1 DESCRIPTION
+
+=cut 
+
 1;

lib/DDG/Language.pm

@@ -1,38 +1,38 @@
-package DDG::Language;
-# ABSTRACT: A language, can be empty [TODO]
-
-use Moo;
-
-my @language_attributes = qw(
-  flagicon
-  flag_url
-  name_in_local
-  rtl
-  locale
-  nplurals
-  name_in_english
-);
-
-  # 'en_US' => {
-  #              'flagicon' => 'us',
-  #              'flag_url' => 'https://duckduckgo.com/f2/us.png',
-  #              'name_in_local' => 'English of United States',
-  #              -'translation_count' => 24,
-  #              -'percent' => '24',
-  #              'rtl' => 0,
-  #              'locale' => 'en_US',
-  #              'nplurals' => 2,
-  #              'name_in_english' => 'English of United States'
-  #            },
-
-has $_ => (
-	is => 'ro',
-	default => sub { '' }
-) for (@language_attributes);
-
-use overload '""' => sub {
-  my $self = shift;
-  return $self->locale;
-}, fallback => 1;
-
+package DDG::Language;
+# ABSTRACT: A language, can be empty [TODO]
+
+use Moo;
+
+my @language_attributes = qw(
+  flagicon
+  flag_url
+  name_in_local
+  rtl
+  locale
+  nplurals
+  name_in_english
+);
+
+  # 'en_US' => {
+  #              'flagicon' => 'us',
+  #              'flag_url' => 'https://duckduckgo.com/f2/us.png',
+  #              'name_in_local' => 'English of United States',
+  #              -'translation_count' => 24,
+  #              -'percent' => '24',
+  #              'rtl' => 0,
+  #              'locale' => 'en_US',
+  #              'nplurals' => 2,
+  #              'name_in_english' => 'English of United States'
+  #            },
+
+has $_ => (
+	is => 'ro',
+	default => sub { '' }
+) for (@language_attributes);
+
+use overload '""' => sub {
+  my $self = shift;
+  return $self->locale;
+}, fallback => 1;
+
 1;

lib/DDG/Location.pm

@@ -1,41 +1,41 @@
-package DDG::Location;
-# ABSTRACT: A location, can be empty (given by Geo::IP::Record)
-
-use Moo;
-
-my @geo_ip_record_attrs = qw( country_code country_code3 country_name region
-	region_name city postal_code latitude longitude time_zone area_code
-	continent_code metro_code );
-
-sub new_from_geo_ip_record {
-	my ( $class, $geo_ip_record ) = @_;
-	if ($geo_ip_record) {
-		my %args;
-		for (@geo_ip_record_attrs) {
-			$args{$_} = $geo_ip_record->$_ if defined $geo_ip_record->$_;
-		}
-		return $class->new(
-			geo_ip_record => $geo_ip_record,
-			%args,
-		);
-	} else {
-		return $class->new;
-	}
-}
-
-has $_ => (
-	is => 'ro',
-	default => sub { '' }
-) for (@geo_ip_record_attrs);
-
-has geo_ip_record => (
-	is => 'ro',
-	predicate => 'has_geo_ip_record',
-);
-
-use overload '""' => sub {
-	my $self = shift;
-	return $self->country_code;
-}, fallback => 1;
-
+package DDG::Location;
+# ABSTRACT: A location, can be empty (given by Geo::IP::Record)
+
+use Moo;
+
+my @geo_ip_record_attrs = qw( country_code country_code3 country_name region
+	region_name city postal_code latitude longitude time_zone area_code
+	continent_code metro_code );
+
+sub new_from_geo_ip_record {
+	my ( $class, $geo_ip_record ) = @_;
+	if ($geo_ip_record) {
+		my %args;
+		for (@geo_ip_record_attrs) {
+			$args{$_} = $geo_ip_record->$_ if defined $geo_ip_record->$_;
+		}
+		return $class->new(
+			geo_ip_record => $geo_ip_record,
+			%args,
+		);
+	} else {
+		return $class->new;
+	}
+}
+
+has $_ => (
+	is => 'ro',
+	default => sub { '' }
+) for (@geo_ip_record_attrs);
+
+has geo_ip_record => (
+	is => 'ro',
+	predicate => 'has_geo_ip_record',
+);
+
+use overload '""' => sub {
+	my $self = shift;
+	return $self->country_code;
+}, fallback => 1;
+
 1;

lib/DDG/Manual.pod

@@ -1,12 +1,12 @@
-# PODNAME: DDG::Manual
-
-=head1 NAME
-
-DDG::Manual - Overview of opensource documentations of DuckDuckGo
-
-=head1 GENERAL TOPICS
-
- * L<Overview of our translation system|DDG::Manual::Translation>
-
- * L<Overview of DuckPAN|DDG::Manual::DuckPAN> B<TODO>
-
+# PODNAME: DDG::Manual
+
+=head1 NAME
+
+DDG::Manual - Overview of opensource documentations of DuckDuckGo
+
+=head1 GENERAL TOPICS
+
+ * L<Overview of our translation system|DDG::Manual::Translation>
+
+ * L<Overview of DuckPAN|DDG::Manual::DuckPAN> B<TODO>
+