File Coverage

blib/lib/FFI/Build/File/Fortran.pm

Criterion	Covered	Total	%
statement	17	27	62.9
branch	0	4	0.0
condition			n/a
subroutine	6	11	54.5
pod	2	3	66.6
total	25	45	55.5

package FFI::Build::File::Fortran;

use strict;
use warnings;
use 5.008001;
use base qw( FFI::Build::File::C );
use constant default_suffix => '.f';
use constant default_encoding => ':utf8';

our $VERSION = '0.10';

=head1 NAME

FFI::Build::File::Fortran - Class to track Fortran source file in FFI::Build
Fortran

=head1 SYNOPSIS

 use FFI::Build::File::Fortran;

 my $c = FFI::Build::File::C->new('src/foo.f');

=head1 DESCRIPTION

File class for Fortran source files.

=cut

sub accept_suffix
{
  (qr/\.f(90|95|or)?$/)
}

sub cc
{
  my($self) = @_;
  $self->platform->for;
}

sub ld
{
  my($self) = @_;
  $self->platform->for;
}

sub _filter
{
  grep { $_ ne '-no-cpp-precomp' && $_ !~ /^-[DI]/ } @_;
}

# TODO: this should use a public interface
sub _base_args
{
  my($self) = @_;
  map { ref $_ ? [_filter(@$_)] : _filter($_) } $self->SUPER::_base_args;
}

1;

=head1 SEE ALSO

=over 4

=item L

The Core Platypus documentation.

=item L

Tool to build bundled libraries with your Perl dist.

=item L

Bundle Fortran with your FFI / Perl extension.

=back

=head1 AUTHOR

Graham Ollis [e-mail]

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2015 by Graham Ollis

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut