Add Build.PL, list ::Result accessors in documenattion

#!/usr/bin/env perl

use strict;

use warnings;

use Module::Build;

Module::Build->new(

	build_requires => {

		'Test::More' => 0,

		'Test::Pod' => 0,

	},

	configure_requires => {

		'Module::Build' => 0.40,

	},

	module_name => 'Travel::Status::DE::IRIS',

	license => 'perl',

	requires => {

		'perl' => '5.10.1',

		'Carp' => 0,

		'Getopt::Long' => 0,

		'LWP::UserAgent' => 0,

		'XML::LibXML' => 0,

	},

	sign => 1,

)->create_build_script();

}

1;

__END__

=head1 NAME

Travel::Status::DE::IRIS - Interface to IRIS based web departure monitors.

=head1 SYNOPSIS

TODO

=head1 VERSION

version 0.00

=head1 DESCRIPTION

TraveL::Status::DE::IRIS is an unofficial interface to IRIS based web

departure monitors such as

L<https://iris.noncd.db.de/wbt/js/index.html?typ=ab&style=qrab&bhf=EE&SecLang=&Zeilen=20&footer=0&disrupt=0>.

=head1 AUTHOR

Copyright (C) 2013 by Daniel Friesel E<lt>derf@finalrewind.orgE<gt>

=head1 LICENSE

This module is licensed under the same terms as Perl itself.

Travel::Status::DE::IRIS::Result->mk_ro_accessors(

	qw(arrival_date arrival_datetime arrival_time date datetime

	  departure_date departure_datetime departure_time line_no

	  departure_date departure_datetime departure_time line_no raw_id

	  start_date start_datetime start_time stop_no

	  raw_id stop_no time train_id train_no

	  time train_id train_no

	  type unknown_t unknown_o)

);

=head1 NAME

Travel::Status::DE::DeutscheBahn::Result - Information about a single

arrival/departure received by Travel::Status::DE::DeutscheBahn

Travel::Status::DE::IRIS::Result - Information about a single

arrival/departure received by Travel::Status::DE::IRIS

=head1 SYNOPSIS

=head1 DESCRIPTION

Travel::Status::DE::DeutscheBahn::Result describes a single arrival/departure

as obtained by Travel::Status::DE::DeutscheBahn.  It contains information about

Travel::Status::DE::IRIs::Result describes a single arrival/departure

as obtained by Travel::Status::DE::IRIS.  It contains information about

the platform, time, route and more.

=head1 METHODS

=over

=item $result->date

Arrival/Departure date in "dd.mm.yyyy" format.

=item $result->delay

Returns the train's delay in minutes, or undef if it is unknown.

=item $result->info

Returns additional information, for instance the reason why the train is

delayed. May be an empty string if no (useful) information is available.

=item $result->line

=item $result->arrival_date

=item $result->train

=item $result->arrival_datetime

Returns the line name, either in a format like "S 1" (S-Bahn line 1)

or "RE 10111" (RegionalExpress train 10111, no line information).

=item $result->arrival_time

=item $result->platform

Returns the platform from which the train will depart / at which it will

arrive.

=item $result->route

Returns a list of station names the train will pass between the selected

station and its origin/destination.

=item $result->route_end

=item $result->date

Returns the last element of the route.  Depending on how you set up

Travel::Status::DE::DeutscheBahn (arrival or departure listing), this is

either the train's destination or its origin station.

=item $result->datetime

=item $result->destination

=item $result->departure_date

=item $result->origin

=item $result->departure_datetime

Convenience aliases for $result->route_end.

=item $result->departure_time

=item $result->route_interesting([I<max>])

=item $result->line_no

Returns a list of up to I<max> (default: 3) interesting stations the train

will pass on its journey. Since deciding whether a station is interesting or

not is somewhat tricky, this feature should be considered experimental.

=item $result->raw_id

The first element of the list is always the train's next stop. The following

elements contain as many main stations as possible, but there may also be

smaller stations if not enough main stations are available.

=item $result->start_date

In future versions, other factors may be taken into account as well.  For

example, right now airport stations are usually not included in this list,

although they should be.

=item $result->start_datetime

Note that all main stations will be stripped of their "Hbf" suffix.

=item $result->start_time

=item $result->route_raw

=item $result->stop_no

Returns the raw string used to create the route array.

=item $result->time

Note that canceled stops are filtered from B<route>, but still present in

B<route_raw>.

=item $result->train_id

=item $result->route_timetable

=item $result->train_no

Similar to B<route>.  however, this function returns a list of array

references of the form C<< [ arrival time, station name ] >>.

=item $result->type

=item $result->time

=item $result->unknown_t

Returns the arrival/departure time as string in "hh:mm" format.

=item $result->unknown_o

=back

=over

=item $result = Travel::Status::DE::DeutscheBahn::Result->new(I<%data>)

=item $result = Travel::Status::DE::IRIS::Result->new(I<%data>)

Returns a new Travel::Status::DE::DeutscheBahn::Result object.

Returns a new Travel::Status::DE::IRIS::Result object.

You usually do not need to call this.

Required I<data>:

=over

=item B<time> => I<hh:mm>

=item B<train> => I<string>

=item B<route_raw> => I<string>

=item B<route> => I<arrayref>

=item B<route_end> => I<string>

=item B<platform> => I<string>

=item B<info_raw> => I<string>

=back

=back

=head1 DIAGNOSTICS

=head1 SEE ALSO

Travel::Status::DE::DeutscheBahn(3pm).

Travel::Status::DE::IRIS(3pm).

=head1 AUTHOR

Copyright (C) 2011 by Daniel Friesel E<lt>derf@finalrewind.orgE<gt>

Copyright (C) 2013 by Daniel Friesel E<lt>derf@finalrewind.orgE<gt>

=head1 LICENSE