File Coverage

blib/lib/Math/Fibonacci/Phi.pm

Criterion	Covered	Total	%
statement	9	40	22.5
branch	0	14	0.0
condition	0	6	0.0
subroutine	3	10	30.0
pod	7	7	100.0
total	19	77	24.6

package Math::Fibonacci::Phi;

use strict;
use warnings;
use Math::Fibonacci;

require Exporter;
our @ISA = qw(Exporter);

our %EXPORT_TAGS = ( 'all' => [ qw( Phi phi series_Phi series_phi term_Phi term_phi super_series ) ] );
our @EXPORT_OK = @{ $EXPORT_TAGS{'all'} } ;

my $max_prec = 14;
our $Precision = 0;
our $TrailingZeros = 0;
our $VERSION = '0.02';

sub Phi {
   my $fn = Math::Fibonacci::isfibonacci(shift());
   return undef if !$fn;
   my $prev = $fn - 1;
   return 1 if !$prev; # handle number 1 special, 1/1

   return Math::Fibonacci::term($fn) / Math::Fibonacci::term($prev) unless $Precision >= 1 && $Precision <= $max_prec;

   my $gold = sprintf ('%.' . $Precision . 'f', Math::Fibonacci::term($fn) / Math::Fibonacci::term($prev) );
   $gold =~ s/\.?0*$// unless $TrailingZeros;
   return $gold;
}

sub phi {
   my $fn = Math::Fibonacci::isfibonacci(shift());
   return undef if !$fn;
   my $next = $fn + 1;

   return Math::Fibonacci::term($next) / Math::Fibonacci::term($fn) unless $Precision >= 1 && $Precision <= $max_prec;

   my $gold = sprintf ('%.' . $Precision . 'f', Math::Fibonacci::term($next) / Math::Fibonacci::term($fn) );
   $gold =~ s/\.?0*$// unless $TrailingZeros;
   return $gold;
}

sub series_Phi {
   my %Fibo;
   for(Math::Fibonacci::series(shift())) {
      $Fibo{$_} = Phi($_);
   }
   return \%Fibo;
}

sub series_phi {
   my %Fibo;
   for(Math::Fibonacci::series(shift())) {
      $Fibo{$_} = phi($_);
   }
   return \%Fibo;
}

sub term_Phi { Phi(Math::Fibonacci::term(shift())); }

sub term_phi { phi(Math::Fibonacci::term(shift())); }

sub super_series {
   my %Fibo;
   my $posi = 1;
   for(Math::Fibonacci::series(shift())) {
     $Fibo{$_} = {
        position => $posi,
        Phi => Phi($_),
        phi => phi($_)
     };
     $posi++;
   }
   return \%Fibo;
}

1;

__END__