Permalink
Browse files

purge windows carriage returns

grep -rl $'\r' * | xargs dos2unix
  • Loading branch information...
1 parent 28eca9a commit ab8bf9557864e44a5790a50080dae5e5620f3292 @majuscule majuscule committed Jan 29, 2013
View
@@ -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
@@ -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;
View
@@ -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;
View
@@ -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;
View
@@ -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>
+
Oops, something went wrong.

0 comments on commit ab8bf95

Please sign in to comment.