From 0ebca20daff63136c46612579d6cc041b8cd6b4f Mon Sep 17 00:00:00 2001 From: Ian Beckwith Date: Mon, 18 Oct 2010 08:31:52 +0100 Subject: [PATCH] Remove PathElement::* --- lib/ID3FS/PathElement/Album.pm | 22 ---------------------- lib/ID3FS/PathElement/Artist.pm | 23 ----------------------- lib/ID3FS/PathElement/Boolean.pm | 22 ---------------------- lib/ID3FS/PathElement/File.pm | 23 ----------------------- lib/ID3FS/PathElement/Tag.pm | 24 ------------------------ lib/ID3FS/PathElement/Tagval.pm | 23 ----------------------- 6 files changed, 137 deletions(-) delete mode 100644 lib/ID3FS/PathElement/Album.pm delete mode 100644 lib/ID3FS/PathElement/Artist.pm delete mode 100644 lib/ID3FS/PathElement/Boolean.pm delete mode 100644 lib/ID3FS/PathElement/File.pm delete mode 100644 lib/ID3FS/PathElement/Tag.pm delete mode 100644 lib/ID3FS/PathElement/Tagval.pm diff --git a/lib/ID3FS/PathElement/Album.pm b/lib/ID3FS/PathElement/Album.pm deleted file mode 100644 index 8eed935..0000000 --- a/lib/ID3FS/PathElement/Album.pm +++ /dev/null @@ -1,22 +0,0 @@ -package ID3FS::PathElement::Album; - -use strict; -use warnings; - -sub new -{ - my $proto=shift; - my $class=ref($proto) || $proto; - my $self={}; - bless($self,$class); - - $self->{db}=shift; - $self->{name}=shift; - $self->{id}=($self->{db}->lookup_id("albums", $self->{name})); - return(undef) unless(defined($self->{id})); - return $self; -} - -sub type { return "album"; } -sub id { return shift->{id}; } -1; diff --git a/lib/ID3FS/PathElement/Artist.pm b/lib/ID3FS/PathElement/Artist.pm deleted file mode 100644 index 55fde54..0000000 --- a/lib/ID3FS/PathElement/Artist.pm +++ /dev/null @@ -1,23 +0,0 @@ -package ID3FS::PathElement::Artist; - -use strict; -use warnings; - -sub new -{ - my $proto=shift; - my $class=ref($proto) || $proto; - my $self={}; - bless($self,$class); - - $self->{db}=shift; - $self->{name}=shift; - $self->{id}=($self->{db}->lookup_id("artists", $self->{name})); - return(undef) unless(defined($self->{id})); - return $self; -} - -sub type { return "artist"; } -sub id { return shift->{id}; } - -1; diff --git a/lib/ID3FS/PathElement/Boolean.pm b/lib/ID3FS/PathElement/Boolean.pm deleted file mode 100644 index cf7ff80..0000000 --- a/lib/ID3FS/PathElement/Boolean.pm +++ /dev/null @@ -1,22 +0,0 @@ -package ID3FS::PathElement::Boolean; - -use strict; -use warnings; - -sub new -{ - my $proto=shift; - my $class=ref($proto) || $proto; - my $self={}; - bless($self,$class); - - $self->{db}=shift; - $self->{name}=shift; - - return $self; -} - -sub type { return "boolean"; } -sub id { return shift->{id}; } - -1; diff --git a/lib/ID3FS/PathElement/File.pm b/lib/ID3FS/PathElement/File.pm deleted file mode 100644 index 0db80e4..0000000 --- a/lib/ID3FS/PathElement/File.pm +++ /dev/null @@ -1,23 +0,0 @@ -package ID3FS::PathElement::File; - -use strict; -use warnings; - -sub new -{ - my $proto=shift; - my $class=ref($proto) || $proto; - my $self={}; - bless($self,$class); - - $self->{db}=shift; - $self->{name}=shift; - $self->{id}=$self->{db}->lookup_id("files", $self->{name}); - return(undef) unless(defined($self->{id})); - return $self; -} - -sub type { return "file"; } -sub id { return shift->{id}; } - -1; diff --git a/lib/ID3FS/PathElement/Tag.pm b/lib/ID3FS/PathElement/Tag.pm deleted file mode 100644 index 3ddb659..0000000 --- a/lib/ID3FS/PathElement/Tag.pm +++ /dev/null @@ -1,24 +0,0 @@ -package ID3FS::PathElement::Tag; - -use strict; -use warnings; - -sub new -{ - my $proto=shift; - my $class=ref($proto) || $proto; - my $self={}; - bless($self,$class); - - $self->{db}=shift; - $self->{name}=shift; - $self->{parents_id}=shift; - $self->{id}=$self->{db}->lookup_id("tags", $self->{name}, $self->{parents_id}); - return(undef) unless(defined($self->{id})); - return($self); -} - -sub type { return "tag"; } -sub id { return shift->{id}; } - -1; diff --git a/lib/ID3FS/PathElement/Tagval.pm b/lib/ID3FS/PathElement/Tagval.pm deleted file mode 100644 index 33ed3f8..0000000 --- a/lib/ID3FS/PathElement/Tagval.pm +++ /dev/null @@ -1,23 +0,0 @@ -package ID3FS::PathElement::Tagval; - -use strict; -use warnings; - -sub new -{ - my $proto=shift; - my $class=ref($proto) || $proto; - my $self={}; - bless($self,$class); - - $self->{db}=shift; - $self->{name}=shift; - $self->{id}=$self->{db}->lookup_id("tagvals", $self->{name}); - return(undef) unless(defined($self->{id})); - return $self; -} - -sub type { return "tagval"; } -sub id { return shift->{id}; } - -1; -- 2.11.0