perltidy

1 files changed, 21 insertions, 7 deletions

diff --git a/lib/Travelynx/Helper/Traewelling.pm b/lib/Travelynx/Helper/Traewelling.pm
index f216263..23170eb 100644
--- a/lib/Travelynx/Helper/Traewelling.pm
+++ b/lib/Travelynx/Helper/Traewelling.pm
@@ -324,14 +324,27 @@ sub logout_p {
 }
 
 sub convert_travelynx_to_traewelling_visibility {
-	my ( $travelynx_visibility ) = @_;
+	my ($travelynx_visibility) = @_;
 
 	my %visibilities = (
-		100 => 0, # public      => StatusVisibility::PUBLIC
-		80  => 4, # travelynx   => StatusVisibility::AUTHENTICATED (only visible for logged in users)
-		60  => 2, # followers   => StatusVisibility::FOLLOWERS
-		30  => 3, # unlisted    => StatusVisibility::PRIVATE (there is no träwelling equivalent to unlisted, their StatusVisibility::UNLISTED shows the journey on the profile)
-		10  => 3, # private     => StatusVisibility::PRIVATE
+
+		# public    => StatusVisibility::PUBLIC
+		100 => 0,
+
+		# travelynx => StatusVisibility::AUTHENTICATED
+		# (only visible for logged in users)
+		80 => 4,
+
+		# followers => StatusVisibility::FOLLOWERS
+		60 => 2,
+
+		# unlisted  => StatusVisibility::PRIVATE
+		# (there is no träwelling equivalent to unlisted, their
+		# StatusVisibility::UNLISTED shows the journey on the profile)
+		30 => 3,
+
+		# private   => StatusVisibility::PRIVATE
+		10 => 3,
 	);
 
 	return $visibilities{$travelynx_visibility};
@@ -367,7 +380,8 @@ sub checkin_p {
 		arrival     => $arrival_ts,
 		toot        => $opt{data}{toot}  ? \1 : \0,
 		tweet       => $opt{data}{tweet} ? \1 : \0,
-		visibility  => convert_travelynx_to_traewelling_visibility($opt{visibility})
+		visibility  =>
+		  convert_travelynx_to_traewelling_visibility( $opt{visibility} )
 	};
 
 	if ( $opt{user_data}{comment} ) {