← Back to branch summary

~ubuntu-branches/ubuntu/raring/octopussy/raring

« back to all changes in this revision

Viewing changes to usr/share/perl5/Octopussy/TimePeriod.pm

  • Committer: Package Import Robot
  • Author(s): James Page
  • Date: 2012-09-25 10:27:37 UTC
  • mfrom: (1.1.1)
  • Revision ID: package-import@ubuntu.com-20120925102737-1hgntjl557w3sjqh
Tags: 1.0.6-0ubuntu1
https://launchpad.net/bugs/1056016
* New upstream release (LP: #1056016).
* d/control: bumped Standards-Version: 3.9.3, no changes.
* d/{copyright,control}: Updated upstream URL.
* d/README.Debian: Fixed minor typo.

Show diffs side-by-side

added added

removed removed

Lines of Context:
usr/share/perl5/Octopussy/TimePeriod.pm
1
1
# $HeadURL$
2
 
# $Revision: 354 $
3
 
# $Date: 2010-05-20 17:20:14 +0100 (Thu, 20 May 2010) $
 
2
# $Revision: 579 $
 
3
# $Date: 2012-06-24 02:11:57 +0100 (Sun, 24 Jun 2012) $
4
4
# $Author: sebthebert $
5
5
 
6
6
=head1 NAME
15
15
use warnings;
16
16
use Readonly;
17
17
 
18
 
use AAT::Utils qw( ARRAY HASH_KEYS );
 
18
use AAT::Utils qw( ARRAY HASH_KEYS NOT_NULL );
19
19
use AAT::XML;
20
20
use Octopussy::FS;
21
21
 
180
180
  return (0);
181
181
}
182
182
 
 
183
=head2 Valid_Name($name)
 
184
 
 
185
Checks that '$name' is valid for a TimePeriod name
 
186
 
 
187
=cut
 
188
 
 
189
sub Valid_Name
 
190
{
 
191
    my $name = shift;
 
192
 
 
193
    return (1)  if ((NOT_NULL($name)) && ($name =~ /^[a-z0-9][a-z0-9_-]*$/i));
 
194
 
 
195
    return (0);
 
196
}
 
197
 
183
198
1;
184
199
 
185
200
=head1 AUTHOR