Transition from Mojolicious::Lite to full Mojolicious app

1 files changed, 26 insertions, 0 deletions

diff --git a/lib/DBInfoscreen/Controller/Wagenreihung.pm b/lib/DBInfoscreen/Controller/Wagenreihung.pm
new file mode 100644
index 0000000..2279da3
--- /dev/null
+++ b/lib/DBInfoscreen/Controller/Wagenreihung.pm
@@ -0,0 +1,26 @@
+package DBInfoscreen::Controller::Wagenreihung;
+use Mojo::Base 'Mojolicious::Controller';
+
+# Copyright (C) 2011-2019 Daniel Friesel <derf+dbf@finalrewind.org>
+# License: 2-Clause BSD
+
+use Travel::Status::DE::DBWagenreihung;
+
+sub wagenreihung {
+	my ($self)    = @_;
+	my $train     = $self->stash('train');
+	my $departure = $self->stash('departure');
+
+	my $wr = Travel::Status::DE::DBWagenreihung->new(
+		departure    => $departure,
+		train_number => $train,
+	);
+
+	$self->render(
+		'wagenreihung',
+		wr        => $wr,
+		hide_opts => 1,
+	);
+}
+
+1;