File Coverage

lib/Seed/Audio/AI/SiteKit.pm
Criterion Covered Total %
statement 16 16 100.0
branch 4 4 100.0
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 25 27 92.5


line stmt bran cond sub pod time code
1             package Seed::Audio::AI::SiteKit;
2              
3 1     1   143669 use strict;
  1         2  
  1         54  
4 1     1   6 use warnings;
  1         2  
  1         99  
5 1     1   7 use Exporter 'import';
  1         1  
  1         291  
6              
7             our $VERSION = '0.1.0';
8             our @EXPORT_OK = qw(site seed_audio_url);
9              
10             sub site {
11             return {
12 2     2 0 239219 name => 'Seed Audio AI',
13             homepage => 'https://seedaud.io/',
14             description => 'Browser-based text-to-speech and AI voice generation workflow.',
15             canonicalPages => {
16             home => 'https://seedaud.io/',
17             textToSpeech => 'https://seedaud.io/text-to-speech/',
18             pricing => 'https://seedaud.io/pricing/',
19             safety => 'https://seedaud.io/safety/',
20             terms => 'https://seedaud.io/terms/',
21             },
22             tags => ['text-to-speech', 'ai-voice', 'voice-generator', 'site-kit'],
23             };
24             }
25              
26             sub seed_audio_url {
27 2     2 0 8 my ($path) = @_;
28 2 100       9 $path = '' unless defined $path;
29 2         10 $path =~ s{^/+}{};
30 2         7 $path =~ s{/+$}{};
31 2 100       10 return 'https://seedaud.io/' if $path eq '';
32 1         12 return 'https://seedaud.io/' . $path . '/';
33             }
34              
35             1;
36              
37             __END__